(require 'cl-lib)
(eval-when-compile
(require 'ergoemacs-macros))
(defvar ergoemacs-set-ignore-customize)
(defvar apropos-do-all)
(defvar cua--last-killed-rectangle)
(defvar dirtrack-list)
(defvar ergoemacs-dir)
(defvar ergoemacs-keyboard-layout)
(defvar ergoemacs-mode)
(defvar ergoemacs-single-command-keys)
(defvar helm-buffer)
(defvar helm-ff-default-directory)
(defvar helm-ff-last-expanded)
(defvar org-table-any-line-regexp)
(defvar server-kill-new-buffers)
(defvar server-existing-buffer)
(defvar explicit-shell-file-name)
(declare-function browse-url-default-windows-browser "browse-url")
(declare-function cua-copy-rectangle "cua-base")
(declare-function cua-copy-region "cua-base")
(declare-function cua-cut-rectangle-as-text "cua-rect")
(declare-function cua-cut-region "cua-base")
(declare-function cua-paste "cua-base")
(declare-function cua-set-rectangle-mark "cua-rect")
(declare-function dired-get-marked-files "dired")
(declare-function ergoemacs-mode "ergoemacs-mode")
(declare-function ergoemacs-map-properties--original "ergoemacs-map-properties")
(declare-function ergoemacs-theme-describe "ergoemacs-theme-engine")
(declare-function ergoemacs-key-description "ergoemacs-key-description")
(declare-function helm-attrset "helm")
(declare-function helm-basename "helm-utils")
(declare-function helm-execute-persistent-action "helm")
(declare-function helm-exit-minibuffer "helm")
(declare-function minibuffer-keyboard-quit "delsel")
(declare-function org-at-heading-p "org")
(declare-function org-at-item-p "org-list")
(declare-function org-at-table-p "org")
(declare-function org-edit-src-save "org-src")
(declare-function org-emphasize "org")
(declare-function org-insert-heading-respect-content "org")
(declare-function org-region-active-p "org-compat")
(declare-function org-with-limited-levels "org-macs")
(declare-function org-yank "org")
(declare-function server-edit "server")
(declare-function shell-dirtrack-mode "shell")
(declare-function undo-tree-mode "undo-tree")
(declare-function flyspell-auto-correct-previous-word "fylspell")
(declare-function w32-shell-execute "compat")
(declare-function w32-long-file-name "compat")
(declare-function term-paste "term")
(declare-function calc-yank "calc-yank")
(defvar ergoemacs-temporary-disable)
(defcustom ergoemacs-isearch-backward-char-to-edit nil
"Backward char will edit isearch."
:type 'boolean
:group 'ergoemacs-mode)
(defun ergoemacs--send-emacs-key (key &optional key2 key3)
"This replays the events from the intial key press.
KEY is the first key in the sequence.
KEY2 is the optional second key in the sequence.
KEY3 is the optional third key in the sequence."
(setq ergoemacs--temporary-disable t
this-command last-command)
(ergoemacs-prefix-command-preserve-state)
(when key3
(if (version< emacs-version "26.2")
(setq unread-command-events (cons key3
unread-command-events))
(setq unread-command-events (cons (cons 'no-record key3)
unread-command-events))))
(when key2
(if (version< emacs-version "26.2")
(setq unread-command-events (cons key2
unread-command-events))
(setq unread-command-events (cons (cons 'no-record key2)
unread-command-events))))
(if (version< emacs-version "26.2")
(setq unread-command-events (cons key
unread-command-events))
(setq unread-command-events (cons (cons 'no-record key)
unread-command-events))))
(defun ergoemacs-kill-line ()
"Ergoemacs replacement for `kill-line' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-k))
(defun ergoemacs-mark-whole-buffer ()
"Ergoemacs replacement for `mark-whole-buffer' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?h))
(defun ergoemacs-find-file ()
"Ergoemacs replacement for `find-file' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?\C-f))
(defun ergoemacs-save-buffer ()
"Ergoemacs replacement for `save-buffer' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?\C-s))
(defun ergoemacs-write-file ()
"Ergoemacs replacement for `write-file' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?\C-w))
(defun ergoemacs-goto-line ()
"Ergoemacs replacement for `goto-line' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-g ?\M-g))
(defun ergoemacs-delete-char ()
"Ergoemacs replacement for `delete-char' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-d))
(defun ergoemacs-move-beginning-of-line ()
"Ergoemacs replacement for `move-beginning-of-line' using `ergoemacs--send-emacs-key'."
(interactive)
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\C-\S-a)
(ergoemacs--send-emacs-key ?\C-a)))
(defun ergoemacs-move-end-of-line ()
"Ergoemacs replacement for `move-end-of-line' using `ergoemacs--send-emacs-key'."
(interactive)
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\C-\S-e)
(ergoemacs--send-emacs-key ?\C-e)))
(defun ergoemacs-set-mark-command ()
"Ergoemacs replacement for `set-mark-command' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-\ ))
(defun ergoemacs-delete-backward-char ()
"Ergoemacs replacement for `delete-backward-char' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key 127))
(defun ergoemacs-delete-char ()
"Ergoemacs replacement for `delete-char' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-d))
(defun ergoemacs-kill-word ()
"Ergoemacs replacement for `kill-word' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-d))
(defun ergoemacs-backward-word ()
"Ergoemacs replacement for `backward-word' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\M-\S-b)
(ergoemacs--send-emacs-key ?\M-b)))
(defun ergoemacs-backward-kill-word ()
"Ergoemacs replacement for `backward-kill-word' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key 'C-backspace))
(defun ergoemacs-forward-word ()
"Ergoemacs replacement for `forward-word' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\M-\S-f)
(ergoemacs--send-emacs-key ?\M-f)))
(defun ergoemacs-backward-paragraph ()
"Ergoemacs replacement for `backward-paragraph' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key 'C-S-up)
(ergoemacs--send-emacs-key ?\M-\{)))
(defun ergoemacs-forward-paragraph ()
"Ergoemacs replacement for `forward-paragraph' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key 'C-S-down)
(ergoemacs--send-emacs-key ?\M-\})))
(defun ergoemacs-scroll-down-command ()
"Ergoemacs replacement for `scroll-down-command' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\M-\S-v)
(ergoemacs--send-emacs-key ?\M-v)))
(defun ergoemacs-scroll-up-command ()
"Ergoemacs replacement for `scroll-up-command' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key ?\C-\S-v)
(ergoemacs--send-emacs-key ?\C-v)))
(defun ergoemacs-beginning-of-buffer ()
"Ergoemacs replacement for `beginning-of-buffer' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key 'C-S-home)
(ergoemacs--send-emacs-key ?\M-\<)))
(defun ergoemacs-end-of-buffer ()
"Ergoemacs replacement for `end-of-buffer' using `ergoemacs--send-emacs-key'."
(interactive "^")
(if this-command-keys-shift-translated
(ergoemacs--send-emacs-key 'C-S-end)
(ergoemacs--send-emacs-key ?\M-\>)))
(defun ergoemacs-query-replace ()
"Ergoemacs replacement for `query-replace' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-\%))
(defun ergoemacs-query-replace-regexp ()
"Ergoemacs replacement for `query-replace-regexp' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-\M-\%))
(defun ergoemacs-other-window ()
"Ergoemacs replacement for `other-window' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?o))
(defun ergoemacs-delete-other-windows ()
"Ergoemacs replacement for `delete-other-windows' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?1))
(defun ergoemacs-delete-window ()
"Ergoemacs replacement for `delete-window' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?0))
(defun ergoemacs-split-window-below ()
"Ergoemacs replacement for `split-window-below' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?2))
(defun ergoemacs-split-window-right ()
"Ergoemacs replacement for `split-window-right' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?3))
(defun ergoemacs-switch-to-buffer ()
"Ergoemacs replacement for `switch-to-buffer' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-x ?b))
(defun ergoemacs-shell-command ()
"Ergoemacs replacement for `shell-command' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-\!))
(defun ergoemacs-recenter-top-bottom ()
"Ergoemacs replacement for `recenter-top-bottom' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\C-l))
(defun ergoemacs-comment-dwim ()
"Ergoemacs replacement for `comment-dwim' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-\
(defun ergoemacs-delete-horizontal-space ()
"Ergoemacs replacement for `delete-horizontal-space' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-\\))
(defun ergoemacs-mark-paragraph ()
"Ergoemacs replacement for `mark-paragraph' using `ergoemacs--send-emacs-key'."
(interactive)
(ergoemacs--send-emacs-key ?\M-\S-\ ))
(defvar ergoemacs-delete-functions
'(delete-backward-char delete-char kill-word backward-kill-word)
"Defines deletion functions that ergoemacs is aware of.")
(defun ergoemacs-undo ()
"Run `undo'. Prefer running undo-fo if present"
(interactive)
(cond
((eq major-mode 'calc-mode)
(calc-undo 1))
((fboundp 'undo-fu-only-undo)
(call-interactively 'undo-fu-only-undo))
(t (undo))))
(defun ergoemacs-redo()
"Run `redo' when present."
(interactive)
(cond
((fboundp 'undo-fu-only-redo)
(call-interactively 'undo-fu-only-redo))
((fboundp 'undo-redo) (call-interactively 'undo-redo))
(t (message "Redo support not present. Try `undo-fu'"))))
(defvar ergoemacs-revert-buffer 0)
(defun ergoemacs-revert-buffer ()
"Ergoemacs replacement of `revert-buffer'.
Does one of the following:
- When buffer is modified, call `revert-buffer' (or major/minor
mode replacement)
- When \"g\" is bound to a non-self-insert function, call that
function.
- When buffer is unmodified, revert to the last backup.
The backup is determined by `find-backup-file-name'"
(interactive)
(let ((backup-buffer (and (or (eq last-command 'ergoemacs-revert-buffer)
(not (buffer-modified-p (current-buffer))))
(buffer-file-name)
(find-backup-file-name (buffer-file-name))))
(opt (point))
bind)
(cond
((and (setq bind (key-binding [?g]))
(not (string-match-p "self-insert" (symbol-name bind)))
(not (memq bind '(ergoemacs-revert-buffer revert-buffer))))
(call-interactively bind))
((and (not (eq last-command 'ergoemacs-revert-buffer))
(buffer-modified-p (current-buffer)))
(revert-buffer)
(goto-char opt))
((and backup-buffer
(or (and (not (eq last-command 'ergoemacs-revert-buffer))
(setq ergoemacs-revert-buffer 0)
(file-readable-p (nth ergoemacs-revert-buffer backup-buffer))
(if (and (= (point-min) (point-max)) (not (eq last-command 'ergoemacs-revert-buffer))) nil
(yes-or-no-p (format "Revert buffer to backup saved on disk (%s)?" (nth 0 backup-buffer)))))
(and (eq last-command 'ergoemacs-revert-buffer)
(setq ergoemacs-revert-buffer (+ ergoemacs-revert-buffer 1)))))
(if (= ergoemacs-revert-buffer (length backup-buffer))
(progn
(revert-buffer t t)
(setq ergoemacs-revert-buffer -1)
(message "Reverted to saved version"))
(delete-region (point-min) (point-max))
(insert-file-contents (nth ergoemacs-revert-buffer backup-buffer))
(message "Reverted to autosave: %s" (nth ergoemacs-revert-buffer backup-buffer)))
(goto-char opt))
(t
(call-interactively 'revert-buffer)))))
(defun ergoemacs-major-mode-p (value)
"Return t if VALUE is a major mode function."
(let ((sym-name (symbol-name value)))
(when (and (fboundp value)
(commandp value)
(not (memq value '(flyspell-mode isearch-mode savehist-mode)))
(< 5 (length sym-name))
(string= "-mode" (substring sym-name (- (length sym-name) 5)))
(if (and (listp (symbol-function value))
(eq 'autoload (car (symbol-function value))))
(progn
(message "loading ")
(load (cadr (symbol-function value)) t t))
t)
(or (memq value
'(fundamental-mode
xml-mode
nxml-mode
nxhtml-mode
css-mode
javascript-mode
espresso-mode
php-mode
))
(and (intern-soft (concat sym-name "-hook"))
(get (intern-soft (concat sym-name "-hook")) 'variable-documentation))
(progn (message "Not a major mode: %s" value)
nil)))
t)))
(defun ergoemacs-exit-customize-save-customized ()
"Call `customize-save-customized' on exit Emacs."
(let (set save val revert save-p)
(dolist (elt ergoemacs-set-ignore-customize)
(when (ergoemacs :custom-p elt)
(setq set (get elt :ergoemacs-set-value)
save (get elt :ergoemacs-save-value)
val (ergoemacs-sv elt))
(if (not (equal set val))
(unless (or (eq elt 'echo-keystrokes)
(string-match-p "-\\(hook\\|mode\\)$" (symbol-name elt)))
(setq save-p t)
(message "%s was changed outside of ergoemacs-mode\n\tPrior: %s\n\tErgoemacs: %s\n\tFinal: %s" elt
save
set
val)
(customize-mark-to-save elt))
(set-default elt save)
(set elt save)
(push elt revert))))
(when save-p
(ignore-errors (unless noninteractive (customize-save-customized))))
(dolist (elt revert)
(set-default elt (get elt :ergoemacs-set-value))
(set elt (get elt :ergoemacs-set-value)))))
(defvar ergoemacs-terminal
"Local variable to determine if `ergoemacs-clean' is running a terminal `ergoemacs-mode'")
(defvar ergoemacs-batch-file
"Ergoemacs batch file to run `ergoemacs-mode' in a terminal")
(defun ergoemacs-clean-recompile-then-run (&optional terminal)
"Recompile `ergoemacs-mode' for a bootstrap environment.
When TERMINAL is non-nil, run in a terminal instead of GUI."
(interactive)
(let ((buf (get-buffer "*ergoemacs-clean*")))
(when buf
(kill-buffer buf)))
(switch-to-buffer-other-window (get-buffer-create "*ergoemacs-clean*"))
(let ((inhibit-read-only t))
(ergoemacs-save-buffer-state
(set (make-local-variable 'ergoemacs-terminal) terminal))
(setq default-directory (expand-file-name (file-name-directory (locate-library "ergoemacs-mode"))))
(delete-region (point-min) (point-max))
(when (or (equal current-prefix-arg '(4))
(equal current-prefix-arg '(16)))
(insert "Delete Byte Compiled Files:\n")
(dolist (file (directory-files default-directory t "\\(ergoemacs-test-global-.*elc?\\(\\.gz\\)?$\\|ergoemacs-global-.*elc?\\(\\.gz\\)?$\\|[.]elc\\(\\.gz\\)?$\\\)"))
(insert "\tDelete " file)
(delete-file file)
(insert "\n"))
(insert "\n"))
(if (equal current-prefix-arg '(16))
(let* ((emacs-exe (ergoemacs-emacs-exe))
(default-directory (expand-file-name (file-name-directory (locate-library "ergoemacs-mode"))))
(process (start-process-shell-command "ergoemacs-byte-compile"
"*ergoemacs-clean*"
(format "%s -L %s -Q --batch -f batch-byte-compile ergoemacs-*.el" emacs-exe default-directory))))
(set-process-sentinel process 'ergoemacs-run-clean))
(ergoemacs-run-clean nil nil))))
(defvar ergoemacs-run-clean nil
"Library to load and run instead of `ergoemacs-mode'.")
(defun ergoemacs-run-clean (process _change)
"Run the clean environment.
The PROCESS is the process where the clean environment is run."
(message "Run ergoemacs-clean (%s)" process)
(let ((emacs-exe (ergoemacs-emacs-exe))
(inhibit-read-only t)
(ergoemacs-load (or ergoemacs-run-clean
" --load=\"ergoemacs-mode\" --load=\"ergoemacs-test\" --eval \"(progn (require 'elp) (setq debug-on-error t) (elp-instrument-package (symbol-name 'ergoemacs-)) (ergoemacs-mode 1) (run-with-idle-timer 0.1 nil 'elp-results))\""))
cmd process rm-batch)
(cond
((with-current-buffer (get-buffer-create "*ergoemacs-clean*")
(not ergoemacs-terminal))
(setq cmd (format "%s --debug-init -Q -L \"%s\" %s" emacs-exe
(expand-file-name (file-name-directory (locate-library "ergoemacs-mode")))
ergoemacs-load)))
((and (eq system-type 'windows-nt) (executable-find "cmd"))
(setq cmd (format "%s -nw --debug-init -Q -L \"%s\" %s"
emacs-exe
(expand-file-name (file-name-directory (locate-library "ergoemacs-mode")))
ergoemacs-load))
(ergoemacs-save-buffer-state
(set (make-local-variable 'ergoemacs-batch-file)
(make-temp-file "ergoemacs-clean" nil ".bat")))
(with-temp-file ergoemacs-batch-file
(insert cmd))
(setq default-directory (file-name-directory ergoemacs-batch-file)))
((executable-find "xterm")
(setq cmd (format "%s -e %s -nw --debug-init -Q -L \"%s\" %s"
(executable-find "xterm") emacs-exe
(expand-file-name (file-name-directory (locate-library "ergoemacs-mode")))
ergoemacs-load))))
(with-current-buffer (get-buffer-create "*ergoemacs-clean*")
(goto-char (point-max))
(insert "Command\n" cmd "\n\n"))
(with-current-buffer (get-buffer-create "*ergoemacs-clean*")
(unless (eq major-mode 'compilation-mode)
(compilation-mode)))
(if (not rm-batch)
(setq process (start-process-shell-command "ergoemacs-run-clean"
"*ergoemacs-clean*"
cmd))
(setq process (start-process
"ergoemacs-run-clean" "*ergoemacs-clean*"
(executable-find "cmd")
(file-name-nondirectory ergoemacs-batch-file)))
(set-process-sentinel process 'ergoemacs-run-clean-rm-batch))))
(defun ergoemacs-run-clean-rm-batch ()
"Remove temporary batch file."
(when ergoemacs-batch-file
(delete-file ergoemacs-batch-file)))
(defun ergoemacs-clean-library (library &optional terminal)
"Run a clean LIBRARY with an `ergoemacs-mode' autoload.
If TERMINAL is non-nil, run the terminal version"
(interactive "aLibrary: \n")
(let* ((lib-file (expand-file-name (find-lisp-object-file-name library (symbol-function library))))
(lib-dir (file-name-directory lib-file))
(req-file (file-name-sans-extension
(file-name-nondirectory lib-file)))
(ergoemacs-run-clean (format " -L \"%s\" --load \"%s\" --eval \"(progn (setq debug-on-error t) (%s) (autoload 'ergoemacs-mode (symbol-name 'ergoemacs-mode) nil t))\"" lib-dir req-file library)))
(if terminal
(ergoemacs-clean-nw)
(ergoemacs-clean))))
(defun ergoemacs-clean ()
"Run ergoemacs in a bootstrap environment.
\\[universal-argument] deletes old byte compiled `ergoemacs-mode' files, and the recompiles.
\\[universal-argument] \\[universal-argument] deletes old byte compilde `ergoemacs-mode' files."
(interactive)
(ergoemacs-clean-recompile-then-run))
(defun ergoemacs-clean-nw ()
"Run ergoemacs in bootstrap environment in terminal.
\\[universal-argument] deletes old byte compiled `ergoemacs-mode' files, and the recompiles.
\\[universal-argument] \\[universal-argument] deletes old byte compilde `ergoemacs-mode' files."
(interactive)
(ergoemacs-clean-recompile-then-run t))
(defun ergoemacs-emacs-exe ()
"Get the Emacs executable for testing purposes."
(let* ((emacs-exe (if (fboundp 'invocation-name) (invocation-name)
(if (boundp 'invocation-name) invocation-name)))
(emacs-dir (if (fboundp 'invocation-directory) (invocation-directory)
(if (boundp 'invocation-directory) invocation-directory)))
(full-exe (concat "\"" (expand-file-name emacs-exe emacs-dir)
"\"")))
full-exe))
(defun ergoemacs-open-line ()
"Insert and move to an indented newline after the current line."
(interactive "P")
(end-of-line)
(newline-and-indent))
(defun ergoemacs-call-keyword-completion ()
"Call the command that has keyboard shortcut M-TAB."
(interactive)
(call-interactively
(key-binding (kbd "M-TAB"))))
(defun ergoemacs-copy-all ()
"Put the whole buffer content into the `kill-ring'.
If `narrow-to-region' is in effect, then copy that region only."
(interactive)
(kill-new (buffer-string))
(message "Buffer content copied."))
(defun ergoemacs-cut-all ()
"Cut the whole buffer content into the `kill-ring'.
If `narrow-to-region' is in effect, then cut that region only."
(interactive)
(kill-new (buffer-string))
(delete-region (point-min) (point-max)))
(defcustom ergoemacs-keep-region-after-copy nil
"Keep region after copy."
:type 'boolean
:group 'ergoemacs-mode)
(defun ergoemacs--keep-mark-active ()
(when (mark t)
(setq mark-active t
deactivate-mark nil)))
(defun ergoemacs-copy-line-or-region (&optional arg)
"Copy current line, or current text selection.
Pass prefix ARG to the respective copy functions."
(interactive "P")
(setq unread-command-events nil)
(cond
((and (boundp 'cua--rectangle) cua--rectangle cua-mode)
(cua-copy-rectangle arg))
((and (region-active-p) cua-mode)
(cua-copy-region arg))
((region-active-p)
(kill-ring-save (region-beginning) (region-end)))
(t
(kill-ring-save
(save-excursion
(let ((pt (point)))
(call-interactively 'move-beginning-of-line)
(when (= pt (point))
(call-interactively 'move-beginning-of-line)))
(when (not (bolp))
(beginning-of-line))
(point))
(save-excursion
(let ((pt (point)))
(call-interactively 'move-end-of-line)
(when (= pt (point))
(call-interactively 'move-end-of-line)))
(re-search-forward "\\=\n" nil t) (point)))))
(if ergoemacs-keep-region-after-copy
(ergoemacs--keep-mark-active)
(deactivate-mark)))
(defun ergoemacs-cut-line-or-region (&optional arg)
"Cut the current line, or current text selection.
Use `cua-cut-rectangle' or `cua-cut-region' when the variable
`cua-mode' is non-nil.
Otherwise, when a region is active, use
`ergoemacs-shortcut-remap' to remap any mode that changes
Emacs' default cut key, Ctrl+w (`kill-region').
When region is not active, move to the beginning of the line and
use `kill-line'. If looking at the end of the line, run
`kill-line' again. The prefix arguments will be preserved for
the first `kill-line', but not the second.
Note that `ergoemacs-shortcut-remap' will remap mode-specific
changes to `kill-line' to allow it to work as expected in
major-modes like `org-mode'.
The ARG is passed to the respective function for any prefixes."
(interactive "P")
(setq unread-command-events nil)
(cond
((and (boundp 'cua--rectangle) cua--rectangle)
(cua-cut-rectangle-as-text arg))
((and (region-active-p) (boundp 'cua-mode) cua-mode)
(cua-cut-region arg)
(deactivate-mark))
((region-active-p) (call-interactively 'kill-region)
(deactivate-mark))
(t
(ignore-errors
(let ((pt (point)))
(call-interactively 'move-beginning-of-line)
(when (= pt (point))
(call-interactively 'move-beginning-of-line))))
(when (not (bolp))
(beginning-of-line))
(let ((kill-whole-line t))
(kill-line)))))
(defun ergoemacs-isearch-forward ()
(interactive)
(if (eq (current-local-map) minibuffer-local-isearch-map)
(isearch-forward-exit-minibuffer)
(isearch-forward)
)
)
(defun ergoemacs-isearch-backward ()
(interactive)
(if (eq (current-local-map) minibuffer-local-isearch-map)
(isearch-reverse-exit-minibuffer)
(isearch-backward)
)
)
(defun ergoemacs-forward-open-bracket (&optional number)
"Move cursor to the next occurrence of left bracket/ quotation mark.
With prefix NUMBER, move forward to the next NUMBER left bracket
or quotation mark.
With a negative prefix NUMBER, move backward to the previous
NUMBER left bracket or quotation mark."
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-backward-open-bracket (- 0 number))
(forward-char 1)
(search-forward-regexp
(eval-when-compile
(regexp-opt
'("\"" "(" "{" "[" "<" "〔" "【" "〖" "〈" "《"
"「" "『" "“" "‘" "‹" "«"))) nil t number)
(backward-char 1)))
(defun ergoemacs-backward-open-bracket (&optional number)
"Move cursor to the previous occurrence of left bracket or quotation mark.
With prefix argument NUMBER, move backward NUMBER open brackets.
With a negative prefix NUMBER, move forward NUMBER open brackets."
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-forward-open-bracket (- 0 number))
(search-backward-regexp
(eval-when-compile
(regexp-opt
'("\"" "(" "{" "[" "<" "〔" "【" "〖" "〈" "《" "「"
"『" "“" "‘" "‹" "«"))) nil t number)))
(defun ergoemacs-forward-close-bracket (&optional number)
"Move cursor to the next occurrence of right bracket or quotation mark.
With a prefix argument NUMBER, move forward NUMBER closed bracket.
With a negative prefix argument NUMBER, move backward NUMBER closed brackets."
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-backward-close-bracket (- 0 number))
(search-forward-regexp
(eval-when-compile
(regexp-opt '("\"" ")" "]" "}" ">" "〕" "】" "〗" "〉" "》" "」" "』" "”" "’" "›" "»"))) nil t number)))
(defun ergoemacs-backward-close-bracket (&optional number)
"Move cursor to the previous occurrence of right bracket or quotation mark.
With a prefix argument NUMBER, move backward NUMBER closed brackets.
With a negative prefix argument NUMBER, move forward NUMBER closed brackets."
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-forward-close-bracket (- 0 number))
(backward-char 1)
(search-backward-regexp
(eval-when-compile
(regexp-opt '("\"" ")" "]" "}" ">" "〕" "】" "〗" "〉" "》" "」" "』" "”" "’" "›" "»"))) nil t number)
(forward-char 1)))
(defun ergoemacs-forward-block (&optional number)
"Move cursor forward to the beginning of next text block.
A text block is separated by 2 empty lines (or line with just
whitespace).
In most major modes, this is similar to `forward-paragraph', but
this command's behavior is the same regardless of syntax table.
With a prefix argument NUMBER, move forward NUMBER blocks.
With a negative prefix argument NUMBER, move backward NUMBER blocks."
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-backward-block (- 0 number))
(if (search-forward-regexp "\n[[:blank:]\n]*\n+" nil "NOERROR" number)
(progn (backward-char))
(progn (goto-char (point-max))))))
(defun ergoemacs-backward-block (&optional number)
"Move cursor backward to previous text block.
With a prefix argument NUMBER, move backward NUMBER blocks.
With a negative prefix argument NUMBER, move forward NUMBER blocks.
See: `ergoemacs-forward-block'"
(interactive "p")
(if (and number
(> 0 number))
(ergoemacs-forward-block (- 0 number))
(if (search-backward-regexp "\n[\t\n ]*\n+" nil "NOERROR" number)
(progn
(skip-chars-backward "\n\t ")
(forward-char 1))
(progn (goto-char (point-min))))))
(defcustom ergoemacs-back-to-indentation t
"Allow `ergoemacs-beginning-of-line-or-what' to move cursor back to the beginning of the indentation. Otherwise, it is always beginning of line."
:type 'boolean
:group 'ergoemacs-mode)
(defcustom ergoemacs-end-of-comment-line t
"When non-nil, treat comments different for beginning/end of line.
When non-nil `ergoemacs-end-of-line-or-what', the end of the
line is the end of the code line first, then the end of the code
+ comment.
When non-nil `ergoemacs-beginning-of-line-or-what' to move the
cursor to the beginning of the comment, then end of code,
followed by the beginning of indentation (if
`ergoemacs-back-to-indentation' is true) and beginning of line."
:type 'boolean
:group 'ergoemacs-mode)
(defcustom ergoemacs-use-beginning-or-end-of-line-only 'on-repeat
"Allow `ergoemacs-beginning-of-line-or-what' and `ergoemacs-end-of-line-or-what' to only go to the beginning/end of a line."
:type '(choice
(const t :tag "Only go to the beginning or end of a line")
(const nil :tag "Goto beginning/end of block whenever at beginning/end of line")
(const on-repeat :tag "Goto beginning/end of block when at beginining/end of line and have already pressed the key."))
:group 'ergoemacs-mode)
(defcustom ergoemacs-beginning-or-end-of-line-and-what 'block
"Change repeatable behavior of beginning/end of line.
When 'buffer use `beginning-of-buffer' or `end-of-buffer'
When 'page use `scroll-down-command' or `scroll-up-command'
When 'block use `ergoemacs-backward-block' or `ergoemacs-forward-block'
When 'nil don't use a repeatable command."
:type '(choice
(const buffer :tag "Goto beginning/end of buffer")
(const page :tag "Page Up")
(const block :tag "Goto beginning/end of block")
(const nil :tag "Do nothing on repeat at beginning/end of line"))
:group 'ergoemacs-mode)
(defcustom ergoemacs-beginning-or-end-of-line-prefix-scrolls-other-window t
"Turn on scrolling the other window.
With a single prefix argument (called with \\[universal-argument]),
`ergoemacs-end-of-line-or-what' and
`ergoemacs-beginning-of-line-or-what' do a page up/down in the
other window."
:type 'boolean
:group 'ergoemacs-mode)
(defcustom ergoemacs-repeatable-beginning-or-end-of-buffer t
"Makes the beginning and end of buffer command repeatable.
Calling it more than once changes the point from the beginning to
the end of the buffer."
:type 'boolean
:group 'ergoemacs-mode)
(defun ergoemacs-beginning-or-end-of-buffer ()
"Goto end or beginning of buffer.
See `ergoemacs-end-or-beginning-of-buffer'.
This behavior can be turned off with
`ergoemacs-repeatable-beginning-or-end-of-buffer'."
(interactive)
(let ((ma (region-active-p)))
(if current-prefix-arg
(call-interactively 'end-of-buffer)
(cond
((and ergoemacs-repeatable-beginning-or-end-of-buffer (bobp))
(call-interactively 'end-of-buffer))
(t
(call-interactively 'beginning-of-buffer))))
(when (and (not ma) (region-active-p))
(deactivate-mark))))
(defun ergoemacs-end-or-beginning-of-buffer ()
"Go to beginning or end of buffer.
This calls `end-of-buffer', unless there is no prefix and the
point is already at the beginning of the buffer.
On repeating, this function will call `beginning-of-buffer'.
This function tries to be smart and if the major mode redefines
the keys, use those keys instead.
The repatable behavior can be turned off
with`ergoemacs-repeatable-beginning-or-end-of-buffer'
This will not honor `shift-select-mode'."
(interactive)
(let ((ma (region-active-p)))
(if current-prefix-arg
(call-interactively 'end-of-buffer)
(cond
((and ergoemacs-repeatable-beginning-or-end-of-buffer (eobp))
(call-interactively 'beginning-of-buffer))
(t
(call-interactively 'end-of-buffer))))
(when (and (not ma) (region-active-p))
(deactivate-mark))))
(defvar ergoemacs-beginning-of-line-or-what-last-command nil)
(defun ergoemacs-beginning-of-line-or-what (&optional N)
"Move cursor to beginning of line or something else.
This could be the indentation, line, or text block, or beginning
of buffer, depending on context, options, and the number of times
this is repeated.
(a text block is separated by empty lines).
This command moves the cursor as follows:
1. Move cursor to the beginning of a comment
(if `ergoemacs-end-of-comment-line') is true.
From:
(progn
(ergoemacs-mode 1)) ; Turn on ergoemacs-mode|
To:
(progn
(ergoemacs-mode 1)) ; |Turn on ergoemacs-mode
2. Move to the end of the line, ignoring comments
(if `ergoemacs-end-of-comment-line') is true.
From:
(progn
(ergoemacs-mode 1)) ; |Turn on ergoemacs-mode
To:
(progn
(ergoemacs-mode 1))| ; Turn on ergoemacs-mode
3. Move cursor to the first non-whitespace character of a line,
if `ergoemacs-back-to-indentation' is true (otherwise skip).
From:
(progn
(ergoemacs-mode 1))| ; Turn on ergoemacs-mode
To:
(progn
|(ergoemacs-mode 1)) ; Turn on ergoemacs-mode
4. Move to the beginning of line
From:
(progn
|(ergoemacs-mode 1)) ; Turn on ergoemacs-mode
To:
(progn
| (ergoemacs-mode 1)) ; Turn on ergoemacs-mode
5. After #4, move to (based on
`ergoemacs-beginning-or-end-of-line-and-what'):
a. Beginning of text-block when selected ('block),
b. Beginning of buffer ('buffer), or
c. A PgUp ('page)
Currently if you are at the beginning of a line, you will have to
call this command twice to move with #3. This behavior can be
changed by `ergoemacs-use-beginning-or-end-of-line-only'.
Also this function tries to use whatever the specific mode wants
for these functions by using `ergoemacs-remap'.
With
`ergoemacs-beginning-or-end-of-line-prefix-scrolls-other-window'
and a single universal argument called with
\\[univeral-argument], this will do a page down in the other
window `scroll-other-window'. Repeated pressing will repeat
`scroll-other-window'.
When moving in steps #1 - #4 if N is not nil or 1, move forward
N - 1 lines first. If point reaches the beginning or end of
the buffer, stop there.
When calling the repeatable command of #3, this command honors
the prefix arguments of `beginning-of-buffer',
`ergoemacs-backward-block' and `scroll-down-command'."
(interactive "^p")
(if (and ergoemacs-beginning-or-end-of-line-prefix-scrolls-other-window
(or (memq last-command '(scroll-other-window scroll-other-window-down))
(equal current-prefix-arg '(4)))
(ignore-errors
(setq this-command 'scroll-other-window-down)
(scroll-other-window-down)
t)) nil
(if (and ergoemacs-beginning-or-end-of-line-and-what
(or (not ergoemacs-use-beginning-or-end-of-line-only)
(and (eq 'on-repeat ergoemacs-use-beginning-or-end-of-line-only)
(eq last-command ergoemacs-beginning-of-line-or-what-last-command)))
(bolp))
(progn
(cond
((eq ergoemacs-beginning-or-end-of-line-and-what 'buffer)
(let ((pt (point)))
(beginning-of-buffer)
(when (= pt (point))
(call-interactively 'beginning-of-buffer)))
(setq this-command 'beginning-of-buffer))
((eq ergoemacs-beginning-or-end-of-line-and-what 'block)
(call-interactively 'ergoemacs-backward-block)
(setq this-command 'ergoemacs-backward-block))
((eq ergoemacs-beginning-or-end-of-line-and-what 'page)
(let ((pt (point)))
(scroll-down-command)
(when (= pt (point))
(call-interactively 'scroll-down-command)))
(setq this-command 'scroll-down-command)))
(beginning-of-line))
(setq N (or N 1))
(when (not (= 1 N))
(let ((line-move-visual nil))
(forward-line (- N 1))))
(let (pts tmp)
(push (point-at-bol) pts)
(save-excursion
(setq current-prefix-arg nil)
(let ((pt (point)))
(call-interactively 'move-beginning-of-line)
(when (= pt (point))
(call-interactively 'move-beginning-of-line)))
(push (point) pts)
(when (and (not (bolp)) (not (bobp)))
(backward-char 1)
(let ((pt (point)))
(call-interactively 'move-beginning-of-line)
(when (= pt (point))
(call-interactively 'move-beginning-of-line)))
(push (point) pts)))
(when ergoemacs-back-to-indentation
(save-excursion
(back-to-indentation)
(push (point) pts)))
(when ergoemacs-end-of-comment-line
(save-excursion
(when (not (eolp))
(forward-char 1))
(save-excursion
(while (re-search-backward (format "%s" comment-start-skip) (point-at-bol) t))
(while (re-search-forward (format "\\=%s" comment-start-skip) (point-at-eol) t))
(push (point) pts)
(when (re-search-backward (format "%s\\=" comment-start-skip) (point-at-bol) t)
(while (re-search-backward (format "%s\\=" comment-start-skip) (point-at-bol) t)
(skip-chars-backward " \t" (point-at-bol)))
(skip-chars-backward " \t" (point-at-bol))
(push (point) pts)))))
(cond
((not pts)
(let ((pt (point)))
(call-interactively 'move-beginning-of-line)
(when (= pt (point))
(call-interactively 'move-beginning-of-line))))
(t
(setq pts (sort pts '<))
(dolist (x pts)
(save-excursion
(goto-char x)
(looking-at ".*"))
(unless (>= x (point))
(push x tmp)))
(setq pts tmp)
(when pts
(goto-char (nth 0 pts))))))))
(setq ergoemacs-beginning-of-line-or-what-last-command this-command))
(put 'ergoemacs-beginning-of-line-or-what 'CUA 'move)
(defun ergoemacs-end-of-line-or-what (&optional N )
"Move cursor to end of line, or something.
This could be end of current or next text block or even end of
buffer depending on context and options.
(a text block is separated by empty lines).
1. Move cursor to the end of a line, ignoring comments
(if `ergoemacs-end-of-comment-line') is true.
From:
(progn
| (ergoemacs-mode 1)) ; Turn on ergoemacs-mode
To:
(progn
(ergoemacs-mode 1))| ; Turn on ergoemacs-mode
2. Move to the end of the line
From:
(progn
(ergoemacs-mode 1))| ; Turn on ergoemacs-mode
To:
(progn
(ergoemacs-mode 1)) ; Turn on ergoemacs-mode|
3. After #2, move to (based on `ergoemacs-beginning-or-end-of-line-and-what'):
a. End of text-block when selected ('block),
b. End of buffer ('buffer), or
c. A PgDown ('page)
Move point to end of current line as displayed.
With
`ergoemacs-beginning-or-end-of-line-prefix-scrolls-other-window'
and a single universal argument called with
\\[univeral-argument], this will do a page down in the other
window `scroll-other-window'. Repeated pressing will repeat
`scroll-other-window'.
With argument N not nil or 1, move forward N - 1 lines first.
If point reaches the beginning or end of buffer, it stops there.
Attempt to honor each modes modification of beginning and end of
line functions by using `ergoemacs-remap'.
When calling the repeatable command of #3, this command honors
the prefix arguments of `end-of-buffer',
`ergoemacs-forward-block' and `scroll-up-command'."
(interactive "^p")
(if (and ergoemacs-beginning-or-end-of-line-prefix-scrolls-other-window
(or (memq last-command '(scroll-other-window scroll-other-window-down))
(equal current-prefix-arg '(4)))
(ignore-errors
(setq this-command 'scroll-other-window)
(scroll-other-window)
t)) nil
(if (and ergoemacs-beginning-or-end-of-line-and-what
(or (not ergoemacs-use-beginning-or-end-of-line-only)
(and (eq 'on-repeat ergoemacs-use-beginning-or-end-of-line-only)
(eq last-command ergoemacs-beginning-of-line-or-what-last-command)))
(or (= (point) (save-excursion
(call-interactively 'move-end-of-line)
(point)))
(and
(or
(memq last-command '(ergoemacs-forward-block scroll-up-command)))
(bolp))))
(progn
(cond
((eq ergoemacs-beginning-or-end-of-line-and-what 'buffer)
(let ((pt (point)))
(end-of-buffer)
(when (= pt (point))
(call-interactively 'end-of-buffer)))
(setq this-command 'end-of-buffer))
((eq ergoemacs-beginning-or-end-of-line-and-what 'block)
(call-interactively 'ergoemacs-forward-block)
(setq this-command 'ergoemacs-forward-block))
((eq ergoemacs-beginning-or-end-of-line-and-what 'page)
(let ((pt (point)))
(scroll-up-command)
(when (= pt (point))
(call-interactively 'scroll-up-command)))
(setq this-command 'scroll-up-command)
(beginning-of-line))))
(setq N (or N 1))
(when (not (= 1 N))
(let ((line-move-visual nil))
(forward-line (- N 1))))
(let (pts tmp)
(setq current-prefix-arg nil)
(save-excursion
(call-interactively 'move-end-of-line)
(push (point) pts))
(save-excursion
(let ((pt (point)))
(call-interactively 'move-end-of-line)
(when (= pt (point))
(call-interactively 'move-end-of-line)))
(push (point) pts)
(when (and (not (eolp)) (not (eobp)))
(forward-char 1)
(let ((pt (point)))
(call-interactively 'move-end-of-line)
(when (= pt (point))
(call-interactively 'move-end-of-line)))
(push (point) pts)))
(when ergoemacs-end-of-comment-line
(save-excursion
(goto-char (point-at-bol))
(when (re-search-forward (format "%s" comment-start-skip) (point-at-eol) t)
(goto-char (match-beginning 0)))
(skip-syntax-backward " " (point-at-bol))
(push (point) pts)))
(when pts
(setq pts (sort pts '<))
(dolist (x pts)
(unless (<= x (point))
(push x tmp)))
(setq pts (reverse tmp)))
(cond
((not pts)
(let ((pt (point)))
(call-interactively 'move-end-of-line)
(when (= pt (point))
(call-interactively 'move-end-of-line)))
(setq this-command 'move-end-of-line))
(t
(goto-char (nth 0 pts)))))))
(setq ergoemacs-beginning-of-line-or-what-last-command this-command))
(put 'ergoemacs-end-of-line-or-what 'CUA 'move)
(defun ergoemacs-select-current-line ()
"Select the current line."
(interactive)
(end-of-line) (set-mark (line-beginning-position)))
(defun ergoemacs-select-current-block ()
"Select the current block of next between empty lines."
(interactive)
(let (p1)
(if (re-search-backward "\n[ \t]*\n" nil "move")
(progn (re-search-forward "\n[ \t]*\n")
(setq p1 (point)))
(setq p1 (point)))
(if (re-search-forward "\n[ \t]*\n" nil "move")
(re-search-backward "\n[ \t]*\n"))
(set-mark p1)))
(defun ergoemacs-select-text-in-quote ()
"Select text between the nearest left and right delimiters.
Delimiters are paired characters:
() [] {} «» ‹› “” 〖〗 【】 「」 『』 （） 〈〉 《》 〔〕 ⦗⦘ 〘〙 ⦅⦆ 〚〛 ⦃⦄ ⟨⟩
For practical purposes, also: \"\", but not single quotes."
(interactive)
(let (p1)
(skip-chars-backward "^<>([{“「『‹«（〈《〔【〖⦗〘⦅〚⦃⟨\"")
(setq p1 (point))
(skip-chars-forward "^<>)]}”」』›»）〉》〕】〗⦘〙⦆〛⦄⟩\"")
(set-mark p1)))
(defun ergoemacs-semnav-up (arg)
"Navigate semantically by ARG."
(interactive "p")
(when (nth 3 (syntax-ppss))
(if (> arg 0)
(progn
(skip-syntax-forward "^\"")
(goto-char (1+ (point)))
(setq arg (1- arg) ))
(skip-syntax-backward "^\"")
(goto-char (1- (point)))
(setq arg (1+ arg) )))
(up-list arg))
(defun ergoemacs-extend-selection (arg &optional incremental)
"Select the current word.
Subsequent calls expands the selection to larger semantic unit."
(interactive (list (prefix-numeric-value current-prefix-arg)
(or (and transient-mark-mode mark-active)
(eq last-command this-command))))
(if incremental
(progn
(ergoemacs-semnav-up (- arg))
(forward-sexp)
(mark-sexp -1))
(if (> arg 1)
(ergoemacs-extend-selection (1- arg) t)
(if (looking-at "\\=\\(\\s_\\|\\sw\\)*\\_>")
(goto-char (match-end 0))
(unless (memq (char-before) '(?\) ?\"))
(forward-sexp)))
(mark-sexp -1))))
;;; TEXT TRANSFORMATION RELATED
(defun ergoemacs-kill-line-backward (&optional number)
"Kill text between the beginning of the line to the cursor position.
If there's no text, delete the previous line ending."
(interactive "p")
(save-match-data
(if (looking-back "\n" nil)
(delete-char -1)
(setq current-prefix-arg '(0))
(ergoemacs--send-emacs-key ?\C-k))))
(defun ergoemacs-move-cursor-previous-pane (&optional number)
"Move cursor to the previous pane."
(interactive "p")
(setq current-prefix-arg (if number (- 0 number) -1))
(call-interactively 'other-window))
(defun ergoemacs-unfill-paragraph ()
"Replace newline char in current paragraph by space.
This command does the reverse of `fill-paragraph'.
See also: `ergoemacs-compact-uncompact-block'"
(interactive)
(let ((fill-column 90002000))
(setq current-prefix-arg nil);; Fill paragraph is bound it M-q.
(fill-paragraph)))
(defun ergoemacs-unfill-region (start end)
"Replace newline char in region by space.
This command does the reverse of `fill-region'.
See also: `ergoemacs-compact-uncompact-block'"
(interactive "r") ;; Fill region is only bound to emacs menu.
(let ((fill-column 90002000))
(fill-region start end)))
(defun ergoemacs-compact-uncompact-block ()
"Remove or add line ending chars on current paragraph.
This command is similar to a toggle of `fill-paragraph'.
When there is a text selection, act on the region."
(interactive)
;; This command symbol has a property “'stateIsCompact-p”.
(let (current-state-is-compact
(big-fill-column-val 4333999)
(deactivate-mark nil))
(setq current-state-is-compact
(if (> (- (line-end-position) (line-beginning-position)) fill-column)
t
nil
)
)
(if (region-active-p)
(if current-state-is-compact
(fill-region (region-beginning) (region-end))
(let ((fill-column big-fill-column-val))
(fill-region (region-beginning) (region-end))) )
(if current-state-is-compact
(fill-paragraph)
(let ((fill-column big-fill-column-val))
(fill-paragraph))))
)
)
(defun ergoemacs-top-join-line ()
"Join the current line with the line beneath it."
(interactive)
(delete-indentation 1))
(defun ergoemacs-open-line-below ()
"Open line below.
If a major/minor mode rebinds the default M-RET command, use that instead."
(interactive)
(end-of-line)
(newline-and-indent))
(defun ergoemacs-open-line-above ()
"Open line above"
(interactive)
(beginning-of-line)
(newline-and-indent)
(forward-line -1)
(indent-for-tab-command))
(defun ergoemacs-shrink-whitespaces ()
"Remove white spaces around cursor to just one or none.
If current line does have visible chars, then shrink whitespace surrounding cursor to just one space.
If current line does not have visible chars, then shrink al neighboring blank lines to just one.
If current line is a single space, remove that space.
Calling this command 3 times will always result in no whitespaces around cursor."
(interactive)
(let (cursor-point
line-has-meat-p ; current line contains non-white space chars
space-tab-neighbor-p
space-or-tab-begin space-or-tab-end
line-begin-pos line-end-pos)
(save-excursion
;; todo: might consider whitespace as defined by syntax table, and also consider whitespace chars in unicode if syntax table doesn't already considered it.
(setq cursor-point (point))
(setq space-tab-neighbor-p (if (or (looking-at " \\|\t") (looking-back " \\|\t" nil)) t nil) )
(move-beginning-of-line 1) (setq line-begin-pos (point) )
(move-end-of-line 1) (setq line-end-pos (point) )
;; (re-search-backward "\n$") (setq line-begin-pos (point) )
;; (re-search-forward "\n$") (setq line-end-pos (point) )
(setq line-has-meat-p (if (< 0 (count-matches "[[:graph:]]" line-begin-pos line-end-pos)) t nil) )
(goto-char cursor-point)
(skip-chars-backward "\t ")
(setq space-or-tab-begin (point))
(skip-chars-backward "\t \n")
(goto-char cursor-point)
(skip-chars-forward "\t ")
(setq space-or-tab-end (point))
(skip-chars-forward "\t \n")
)
(if line-has-meat-p
(let (deleted-text)
(when space-tab-neighbor-p
;; remove all whitespaces in the range
(setq deleted-text (delete-and-extract-region space-or-tab-begin space-or-tab-end))
;; insert a whitespace only if we have removed something
;; different that a simple whitespace
(if (not (string= deleted-text " "))
(insert " "))))
(progn
(delete-blank-lines))
;; todo: possibly code my own delete-blank-lines here for better efficiency, because delete-blank-lines seems complex.
)))
(defcustom ergoemacs-toggle-letter-case-and-spell t
"Auto-corrects previous word when can't toggle letter case."
:type 'boolean
:group 'ergoemacs-mode)
(defcustom ergoemacs-toggle-camel-case-chars
'((LaTeX-mode nil)
(ess-mode ("." "_"))
(bbcode-mode nil)
(confluence-mode nil)
(css-mode nil)
(dired-mode nil)
(emacs-lisp-mode ("-" "_"))
(fundamental-mode nil)
(html-mode nil)
(latex-mode nil)
(markup-mode nil)
(mediawiki-draft-mode nil)
(mediawiki-mode nil)
(message-mode nil)
(muse-mode nil)
(nxhtml-mode nil)
(nxhtml-mode nil)
(nxml-mode nil)
(oddmuse-mode nil)
(org-mode nil)
(rst-mode nil)
(texinfo-mode nil)
(text-mode nil)
(wdired-mode nil)
(wiki-mode nil)
(wikipedia-mode nil)
(xah-css-mode nil)
(xah-html-mode nil)
(xbbcode-mode nil)
(yaoddmuse-mode nil)
(t ("_")))
"Characters to toggle between camelCase and extended_variables."
:type '(repeat
(list
(choice
(const :tag "Default" t)
(symbol :tag "Major Mode"))
(choice
(repeat (string :tag "Character"))
(const :tag "No camelCase conversion" nil))))
:group 'ergoemacs-mode)
(defcustom ergoemacs-toggle-case-and-camel-case t
"Toggles Case and CamelCase depending on context."
:type 'boolean
:group 'ergoemacs-mode)
(defun ergoemacs-get-toggle-camel-case-chars ()
"Gets camel case characters to toggle between.
Based on the value of `major-mode' and
`ergoemacs-toggle-camel-case-chars'."
(let ((a (assoc major-mode ergoemacs-toggle-camel-case-chars)))
(unless a
(setq a (assoc t ergoemacs-toggle-camel-case-chars)))
(car (cdr a))))
(defun ergoemacs-camelize-method (s &optional char)
"Convert under_score string S to CamelCase string."
(mapconcat 'identity (ergoemacs-mapcar-head
#'downcase
'(lambda (word) (capitalize (downcase word)))
(split-string s (or char "_"))) ""))
(defun ergoemacs-camel-bounds (camel-case-chars)
"Return the camel-case bounds.
This command assumes that CAMEL-CASE-CHARS is list of characters
that can separate a variable."
(let* ((reg (concat "[:alpha:]0-9"
(mapconcat (lambda(x) x) camel-case-chars "")))
(p1 (save-excursion (skip-chars-backward reg) (point)))
(p2 (save-excursion (skip-chars-forward reg) (point))))
(if (= p1 p2) nil
(cons p1 p2))))
(defun ergoemacs-toggle-letter-case ()
"Toggle the letter case/camelCase of current word or text selection.
For words or toggles between: “all lower”, “Initial Caps”, “ALL CAPS”.
When you are in a camelCase or separated variable like:
emacs-lisp or emacs_lisp emacsLisp or EmacsLisp, toggle between
the different forms of the variable. This can be turned off with
`ergoemacs-toggle-case-and-camel-case'.
When not in a word, nothing is selected, and
`ergoemacs-toggle-letter-case-and-spell' is non-nil, spell check
the last misspelled word with
`flyspell-auto-correct-previous-word'.
"
(interactive)
(let (p1 p2 (deactivate-mark nil) (case-fold-search nil)
camel-case
(ccc (ergoemacs-get-toggle-camel-case-chars)))
(cond
((region-active-p)
(setq p1 (region-beginning) p2 (region-end)))
((and (eq last-command this-command)
(get this-command 'state)
(string-match "\\(all\\|caps\\)" (get this-command 'state)))
(let ((bds (bounds-of-thing-at-point 'word)))
(setq p1 (car bds) p2 (cdr bds))))
((eq last-command this-command)
(let ((bds (ergoemacs-camel-bounds ccc)))
(setq p1 (car bds) p2 (cdr bds))
(setq camel-case (get this-command 'state))))
(t
(let* ((bds (if (not ccc) nil
(ergoemacs-camel-bounds ccc)))
(txt (if (not bds) nil
(filter-buffer-substring (car bds) (cdr bds)))))
(cond
((or (and (car bds)
(memq (get-text-property (car bds) 'face) '(font-lock-string-face font-lock-doc-face font-lock-comment-face)))
(and (car bds)
(memq (get-text-property (car bds) 'face) '(font-lock-string-face font-lock-doc-face font-lock-comment-face))))
;; In comment/string.
(setq bds (bounds-of-thing-at-point 'word)))
((and txt (or (string-match (format "^%s" (regexp-opt ccc t)) txt)
(string-match (format "%s\\{2,\\}" (regexp-opt ccc t)) txt)))
;; Assume variables such as _temp are not camel case variables.
(setq bds (bounds-of-thing-at-point 'word)))
((and txt (string-match "[[:lower:]][[:upper:]]" txt))
(if (string-match "^[[:lower:]]" txt)
(setq camel-case "camel lower")
(setq camel-case "camel upper")))
((and txt (string-match (regexp-opt ccc t) txt))
(setq camel-case (match-string 1 txt)))
(t
(setq bds (bounds-of-thing-at-point 'word))))
(setq p1 (car bds) p2 (cdr bds)))))
(if (not (and p1 p2))
(when ergoemacs-toggle-letter-case-and-spell
(flyspell-auto-correct-previous-word))
(when (not (eq last-command this-command))
(save-excursion
(goto-char p1)
(cond
(camel-case
(put this-command 'state camel-case))
((looking-at "[[:lower:]][[:lower:]]")
(put this-command 'state "all lower"))
((looking-at "[[:upper:]][[:upper:]]")
(put this-command 'state "all caps"))
((looking-at "[[:upper:]][[:lower:]]")
(put this-command 'state "init caps"))
((looking-at "[[:lower:]]")
(put this-command 'state "all lower"))
((looking-at "[[:upper:]]")
(put this-command 'state "all caps"))
(t
(put this-command 'state "all lower")))))
(cond
((string= "all lower" (get this-command 'state))
(upcase-initials-region p1 p2) (put this-command 'state "init caps"))
((string= "init caps" (get this-command 'state))
(upcase-region p1 p2) (put this-command 'state "all caps"))
((string= "all caps" (get this-command 'state))
(downcase-region p1 p2) (put this-command 'state "all lower"))
((string= "camel lower" (get this-command 'state))
(upcase-region p1 (+ p1 1)) (put this-command 'state "camel upper"))
((string= "camel upper" (get this-command 'state))
(let ((txt (filter-buffer-substring p1 p2)))
(delete-region p1 p2)
(insert (ergoemacs-un-camelcase-string txt (nth 0 ccc)))
(put this-command 'state (nth 0 ccc))))
(t ;; This cycles through the camel-case types.
(let ((c-char (get this-command 'state))
n-char)
(dolist (char ccc)
(when (eq n-char t)
(setq n-char char))
(when (string= c-char char)
(setq n-char t)))
(cond
((eq n-char t) ;; at last char. convert un_camel to unCamel
(let ((txt (filter-buffer-substring p1 p2)))
(delete-region p1 p2)
(insert (ergoemacs-camelize-method txt c-char)))
(put this-command 'state "camel lower"))
(t
(goto-char p1)
(while (search-forward c-char p2 t)
(replace-match n-char t t))
(put this-command 'state n-char)))))))))
;;; FRAME
(defun ergoemacs-switch-to-next-frame (&optional number)
"Select the next frame on current display, and raise it."
(interactive "p")
(other-frame (or number 1)))
(defun ergoemacs-switch-to-previous-frame (&optional number)
"Select the previous frame on current display, and raise it."
(interactive "p")
(other-frame
(if number
(- 0 number)
-1)))
;;; BUFFER RELATED
(defvar ergoemacs-user-buffer-functions nil
"A user buffer is one whose name does not start with *, or for which
any of the functions in `ergoemacs-user-buffer-functions' returns
trueargument.")
(defun ergoemacs-user-buffer-p (buffer)
"Is BUFFER a user buffer?
A user buffer is one whose name does not start with *, or for which
any of the functions in `ergoemacs-user-buffer-functions' returns
true (or
(not (string= "*" (substring (buffer-name buffer) 0 1)))
(cl-some
(lambda (func)
(funcall func buffer))
ergoemacs-user-buffer-functions)))
(defun ergoemacs-change-buffer (&optional number previous-buffer-p emacs-buffer-p)
"Switch to the next/previous emacs/user buffer.
By default this switches to the next user buffer.
This function switches forward/backward NUMBER emacs/user buffers.
This can be specified by a prefix argument.
When PREVIOUS-BUFFER-P is non-nil, switch to a previous buffer.
When EMACS-BUFFER-P is non-nil switch to an emacs buffer. A user
buffer is one whose name does not start with *, or for which any of
the functions in `ergoemacs-user-buffer-functions' returns true;
otherwise it is an emacs buffer."
(interactive)
(let ((curr-buffer (current-buffer))
(number (or (and number (abs number)) 1))
(i 0))
(while (< i number)
(if previous-buffer-p
(previous-buffer)
(next-buffer))
(while (and (or (and (not emacs-buffer-p)
(not (ergoemacs-user-buffer-p (current-buffer))))
(and emacs-buffer-p
(ergoemacs-user-buffer-p (current-buffer))))
(not (eq curr-buffer (current-buffer))))
(if previous-buffer-p
(previous-buffer)
(next-buffer)))
(when (and (eq curr-buffer (current-buffer)) (= i 0))
(if emacs-buffer-p
(message "Could not find any %semacs buffers."
(or (and (not (ergoemacs-user-buffer-p (current-buffer))) "other ") ""))
(message "Could not find any %suser buffers."
(or (and (ergoemacs-user-buffer-p (current-buffer)) "other ") "")))
(setq i (+ number 1)))
(setq i (+ 1 i)))))
(defun ergoemacs-next-user-buffer (&optional number)
"Switch to the next user buffer.
User buffers are those whose name does not start with *."
(interactive "p")
(ergoemacs-change-buffer number))
(defun ergoemacs-previous-user-buffer (&optional number)
"Switch to the previous user buffer.
User buffers are those whose name does not start with *."
(interactive "p")
(ergoemacs-change-buffer number t))
(defun ergoemacs-next-emacs-buffer (&optional number)
"Switch to the next emacs buffer.
Emacs buffers are those whose name starts with *."
(interactive "p")
(ergoemacs-change-buffer number nil t))
(defun ergoemacs-previous-emacs-buffer (&optional number)
"Switch to the previous emacs buffer.
Emacs buffers are those whose name starts with *."
(interactive "p")
(ergoemacs-change-buffer number t t))
(defun ergoemacs-new-empty-buffer ()
"Opens a new empty buffer."
(interactive)
(let ((buf (generate-new-buffer "untitled")))
(switch-to-buffer buf)
(funcall (and initial-major-mode))
(setq buffer-offer-save t)))
(defun ergoemacs-make-frame-command ()
"Create a new frame. This is a thin wrapper so that menus will
show the ergoemacs key binding rather than the traditional
binding."
(interactive)
(make-frame-command)
)
(defun ergoemacs-delete-frame ()
"Deletes frame or closes emacs (with prompt)."
(interactive)
(unless (ignore-errors (delete-frame))
(when (yes-or-no-p "Do you wish to Close Emacs? ")
(save-buffers-kill-terminal))))
(defcustom ergoemacs-maximum-number-of-file-to-open 5
"Maximum number of files to open.
If less than or equal to zero, there is no limit."
:type 'integerp
:group 'ergoemacs-mode)
(defun ergoemacs-open-in-external-app (&optional file)
"Open the current file or dired marked files in external app.
FILE can be a list of files, or a single file.
If FILE is not specified, it will be:
- `dired-get-marked-files' for `dired-mode' or `locate-mode'
- `buffer-file-name' for other files.
This will function prompt if you are sure you want to open the
set of files if there are many files to open. This is controlled
by `ergoemacs-maximum-number-of-files-to-open'.
"
(interactive)
(let* ((my-file-list
(cond
((consp file) file)
(file (list file))
((eq major-mode 'dired-mode) (dired-get-marked-files))
((eq major-mode 'locate-mode) (dired-get-marked-files))
((not file) (list (or (buffer-file-name)
(error "This buffer is not visiting a file"))))))
(do-it (or (<= (length my-file-list) ergoemacs-maximum-number-of-file-to-open)
(>= 0 ergoemacs-maximum-number-of-file-to-open)
(y-or-n-p (format "Open more than %s files? " ergoemacs-maximum-number-of-file-to-open)))))
(when do-it
(cond
((eq system-type 'windows-nt)
(ergoemacs :w32-shell-open-files my-file-list))
((eq system-type 'darwin)
(dolist (f-path my-file-list)
(shell-command (format "open \"%s\"" f-path))))
((eq system-type 'gnu/linux)
(dolist (f-path my-file-list)
(let (process-connection-type)
(start-process "" nil "xdg-open" f-path))))))))
(defun ergoemacs-open-in-desktop ()
"Show current file in desktop (OS's file manager)."
(interactive)
(cond
((eq system-type 'windows-nt)
(ergoemacs :w32-shell-execute "explore" (replace-regexp-in-string "/" "\\" default-directory t t)))
((eq system-type 'darwin) (shell-command "open ."))
((eq system-type 'gnu/linux)
(let ((process-connection-type nil))
(start-process "" nil "xdg-open" ".")))))
(defvar ergoemacs-recently-closed-buffers (cons nil nil)
"A list of recently closed buffers. The max number to track is controlled by the variable `ergoemacs-recently-closed-buffers-max'.")
(defvar ergoemacs-recently-closed-buffers-max 30 "The maximum length for `ergoemacs-recently-closed-buffers'.")
(defun ergoemacs-save-buffer-to-recently-closed ()
"If the buffer is a file, add the path to the list `ergoemacs-recently-closed-buffers'"
(when (not (equal buffer-file-name nil))
(setq ergoemacs-recently-closed-buffers
(cons (cons (buffer-name) (buffer-file-name)) ergoemacs-recently-closed-buffers))
(when (> (length ergoemacs-recently-closed-buffers) ergoemacs-recently-closed-buffers-max)
(setq ergoemacs-recently-closed-buffers (butlast ergoemacs-recently-closed-buffers 1)))))
(defun ergoemacs-keyboard-quit ()
"Quit the current command/process.
Similar to `keyboard-quit', with the following changes:
• In the minibuffer, use `minibuffer-keyboard-quit'
• When a region is active, (see `region-active-p') deactivate the
region with the function `deactivate-mark'.
• When \"C-g\" is bound to something other than ergoemacs /
standard quit commands, run that command.
• When \"q\" is bound to something other than self-insert
commands, run that command.
• Otherwise run `keyboard-quit'"
(interactive)
(let (bind)
(cond
((minibufferp)
(minibuffer-keyboard-quit))
((region-active-p)
(setq saved-region-selection nil)
(let (select-active-regions)
(deactivate-mark)))
((and (setq bind (key-binding [7])) (not (memq bind '(ergoemacs-keyboard-quit minibuffer-keyboard-quit keyboard-quit))))
(call-interactively bind))
((and (setq bind (key-binding [?q]))
(not (string-match-p "self-insert" (symbol-name bind)))
(not (eq bind 'ergoemacs-keyboard-quit)))
(call-interactively bind))
(t
(keyboard-quit)))))
(defun ergoemacs-close-current-buffer ()
"Close the current buffer.
Similar to (kill-buffer (current-buffer)) with the following addition:
• Prompt user to save if the buffer has been modified even if the
buffer is not associated with a file.
• Make sure the buffer shown after closing is a user buffer.
• If the buffer is editing a source file in an `org-mode' file,
prompt the user to save before closing.
• If the buffer is editing a catpured task in an `vvorg-mode' file,
prompt the user to save before closing.
• If the buffer is editing a magit commit, prompt the user to
save the commit before closing.
• If it is the minibuffer, exit the minibuffer.
• If the buffer was created by `server-execute', call
`server-edit'. When `server-existing-buffer' is also non-nil,
call `kill-buffer'
A user buffer is one whose name does not start with *, or for which
any of the functions in `ergoemacs-user-buffer-functions' returns
true; otherwise it is an emacs buffer."
(interactive)
(let (emacs-buff-p
is-emacs-buffer-after-p
(org-p (string-match "^[*]Org Src" (buffer-name)))
(org-capture-p (string-match "CAPTURE-.*\\.org" (buffer-name)))
(git-commit-p (eq major-mode 'git-commit-mode))
existing-buffer-p)
(setq emacs-buff-p (if (not (ergoemacs-user-buffer-p (current-buffer))) t nil))
(cond
((bound-and-true-p server-buffer-clients)
(when (and (buffer-modified-p)
(if (equal (buffer-file-name) nil)
(if (string-equal "" (save-restriction (widen) (buffer-string))) nil t)
t))
(if (y-or-n-p (format "Buffer %s modified; Do you want to save? " (buffer-name)))
(save-buffer)
(set-buffer-modified-p nil)))
(setq existing-buffer-p (or (not server-kill-new-buffers)
server-existing-buffer))
(server-edit)
(when existing-buffer-p
(kill-buffer (current-buffer))))
((minibufferp)
(minibuffer-keyboard-quit))
(org-capture-p
(if (y-or-n-p "Capture not saved, do you want to save?")
(call-interactively 'org-capture-finalize)
(call-interactively 'org-capture-kill)))
(git-commit-p
(if (y-or-n-p "Not commited yet, do you want to commit?")
(call-interactively 'git-commit-commit)
(call-interactively 'git-commit-abort)))
(t
(when (and (buffer-modified-p)
(not emacs-buff-p)
(not (string-equal major-mode "dired-mode"))
(if (equal (buffer-file-name) nil)
(if (string-equal "" (save-restriction (widen) (buffer-string))) nil t)
t))
(if (y-or-n-p (format "Buffer %s modified; Do you want to save? " (buffer-name)))
(save-buffer)
(set-buffer-modified-p nil)))
(kill-buffer (current-buffer))
(when (and (buffer-modified-p)
org-p)
(if (y-or-n-p (format "Buffer %s modified; Do you want to save? " (buffer-name)))
(org-edit-src-save)
(set-buffer-modified-p nil)))
(if (not (ergoemacs-user-buffer-p (current-buffer)))
(setq is-emacs-buffer-after-p t)
(setq is-emacs-buffer-after-p nil))
(when is-emacs-buffer-after-p
(ergoemacs-next-user-buffer))))))
(defun ergoemacs-open-last-closed ()
"Open the last closed file."
(interactive)
(let ((file (cdr (pop ergoemacs-recently-closed-buffers))))
(if file
(if (file-exists-p file)
(find-file file)
(error "File %s seems to have been deleted." file))
(error "No recent file has been closed"))))
(defun ergoemacs-text-scale-normal-size ()
"Set the height of the default face in the current buffer to its default value."
(interactive)
(text-scale-increase 0))
(defun ergoemacs-org-bold ()
"Call `org-emphasize' with *"
(interactive)
(org-emphasize ?*))
(defun ergoemacs-org-italic ()
"Call `org-emphasize' with /"
(interactive)
(org-emphasize ?/))
(defun ergoemacs-org-underline ()
"Call `org-emphasize' with _"
(interactive)
(org-emphasize ?_))
(defvar ergoemacs-smart-punctuation-hooks nil
"`ergoemacs-smart-punctuation' hooks.")
(defun ergoemacs-smart-punctuation-mode-p ()
"Determines if a smart paren mode is active."
(or (and (boundp 'smartparens-mode)
smartparens-mode)
(and (boundp 'autopair-mode)
autopair-mode)
(and (boundp 'textmate-mode)
textmate-mode)
(and (boundp 'wrap-region-mode)
wrap-region-mode)
(and (boundp 'electric-pair-mode)
electric-pair-mode)
(and (boundp 'paredit-mode)
paredit-mode)))
(defun ergoemacs-smart-punctuation-insert-pair (pair)
"Inserts a matched pair like ().
If a smart-punctuation mode is active, use it by placing the
initial pair in the unread command events."
(if (ergoemacs-smart-punctuation-mode-p)
(let ((tmp (read-kbd-macro (substring pair 0 1) t)))
(setq ergoemacs-single-command-keys tmp)
(setq last-input-event tmp)
(setq prefix-arg current-prefix-arg)
(setq unread-command-events (append (listify-key-sequence tmp) unread-command-events))
(ergoemacs-prefix-command-preserve-state))
(if (region-active-p)
(let ((p1 (region-beginning))
(p2 (region-end)))
(goto-char p2)
(insert (substring pair 1 2))
(goto-char p1)
(insert (substring pair 0 1))
(goto-char (+ p2 2)))
(insert pair)
(backward-char 1))))
(defun ergoemacs-smart-paren ()
"Insert ()"
(interactive)
(ergoemacs-smart-punctuation-insert-pair "()"))
(defun ergoemacs-smart-bracket ()
"Insert []"
(interactive)
(ergoemacs-smart-punctuation-insert-pair "[]"))
(defun ergoemacs-smart-curly ()
"Insert {}"
(interactive)
(ergoemacs-smart-punctuation-insert-pair "{}"))
(defun ergoemacs-smart-quote ()
"Insert \"\""
(interactive)
(ergoemacs-smart-punctuation-insert-pair "\"\""))
(defun ergoemacs-smart-apostrophe ()
"Insert ''"
(interactive)
(ergoemacs-smart-punctuation-insert-pair "''"))
(defvar ergoemacs-smart-punctuation-pairs '("()" "[]" "{}" "\"\"")
"Default pairs to cycle among for `ergoemacs-smart-punctuation'")
(defvar ergoemacs-smart-punctuation-next-pair 0)
(defvar ergoemacs-smart-punctuation-last-mark nil)
(defcustom ergoemacs-repeat-smart-punctuation t
"Makes `ergoemacs-smart-punctuation' repeatable"
:type 'boolean
:group 'ergoemacs-mode)
(defun ergoemacs-org-insert-heading-respect-content (&optional reopen-or-invisible-ok)
"When in an `org-mode' table, use `cua-set-rectangle-mark', otherwise use `org-insert-heading-respect-content'"
(interactive "P")
(cond
((and cua-mode (save-excursion (beginning-of-line) (looking-at org-table-any-line-regexp)))
(cua-set-rectangle-mark reopen-or-invisible-ok))
(t
(org-insert-heading-respect-content reopen-or-invisible-ok))))
(defcustom ergoemacs-smart-paste nil
"Do a smart paste. That is repeated pastes cycle though the kill ring."
:type '(choice
(const :tag "Repeated paste cycles through last pasted items." t)
(const :tag "Repeated paste starts browse-kill-ring if available." browse-kill-ring)
(const :tag "Repeated paste, pastes same thing multiple times."))
:group 'ergoemacs-mode)
(defun ergoemacs-paste-cycle ()
"Run `yank-pop' or`yank'.
This is `yank-pop' if `ergoemacs-smart-paste' is nil.
This is `yank' if `ergoemacs-smart-paste' is t.
If `browse-kill-ring' is enabled and the last command is not a
paste, this will start `browse-kill-ring'.
When in `browse-kill-ring-mode', cycle backward through the key ring.
"
(interactive)
(cond
((and isearch-mode ergoemacs-smart-paste)
(isearch-yank-kill)
(setq this-command 'isearch-yank-kill))
(isearch-mode
(isearch-yank-pop)
(setq this-command 'isearch-yank-pop))
((eq major-mode 'browse-kill-ring-mode)
(if (save-excursion (re-search-backward "^----" nil t))
(call-interactively 'browse-kill-ring-previous)
(goto-char (point-max))
(call-interactively 'browse-kill-ring-previous)))
((and (fboundp 'browse-kill-ring)
(not (eq last-command 'yank)))
(browse-kill-ring))
(ergoemacs-smart-paste
(yank))
(t (yank-pop))))
(put 'ergoemacs-paste 'delete-selection 'yank)
(defun ergoemacs-paste ()
"Run `yank' or `yank-pop' if this command is repeated.
This is `yank' if `ergoemacs-smart-paste' is nil.
This is `yank-pop' if `ergoemacs-smart-paste' is t and last command is a yank.
This is `browse-kill-ring' if `ergoemacs-smart-paste' equals 'browse-kill-ring and last command is a yank.
When in `browse-kill-ring-mode', cycle forward through the key ring.
This does the same thing in `isearch-mode' using `isearch-yank-pop' and `isearch-yank-kill'
If in `term-mode', run `term-paste'.
"
(interactive)
(cond
((eq major-mode 'term-mode)
(term-paste))
((eq major-mode 'calc-mode)
(calc-yank nil))
((and isearch-mode ergoemacs-smart-paste (eq last-command 'isearch-yank-kill))
(isearch-yank-pop)
(setq this-command 'isearch-yank-pop))
(isearch-mode
(isearch-yank-kill)
(setq this-command 'isearch-yank-kill))
((and (eq major-mode 'browse-kill-ring-mode) (save-excursion (re-search-forward "^----" nil t)))
(call-interactively 'browse-kill-ring-forward))
((eq major-mode 'browse-kill-ring-mode)
(goto-char (point-min)))
((and (eq ergoemacs-smart-paste 'browse-kill-ring)
(eq last-command 'yank)
(fboundp 'browse-kill-ring))
(browse-kill-ring)
(setq unread-command-events (append (listify-key-sequence (this-single-command-keys)) unread-command-events)))
((and ergoemacs-smart-paste (eq last-command 'yank))
(yank-pop))
(t
(yank))))
(put 'ergoemacs-org-yank 'delete-selection 'yank)
(defun ergoemacs-org-yank (&optional arg)
"Ergoemacs org-mode paste."
(interactive)
(cond
((and mark-active (boundp 'cua--rectangle) cua--rectangle)
(cua-paste arg))
((and (boundp 'cua--last-killed-rectangle) cua--last-killed-rectangle
(eq (and kill-ring (car kill-ring)) (car cua--last-killed-rectangle)))
(cua-paste arg))
(t
(org-yank arg))))
(defvar ergoemacs-keymap)
(defun ergoemacs-lookup-key-and-run (key)
"Looks up KEY in `ergoemacs-keymap' and runs the function"
(let ((fun (lookup-key ergoemacs-keymap (read-kbd-macro key))))
(call-interactively fun)))
(defmacro ergoemacs-define-org-meta (direction &optional disable)
"Defines org-mode meta-direction keys.
DIRECTION defines the `org-mode' and `ergoemacs-mode' direction.
DISABLE defines if the option should be disabled by default."
`(progn
(defcustom ,(intern (format "ergoemacs-use-ergoemacs-meta%s" direction)) ,(not disable)
,(format "Use ergoemacs-mode defined <M-%s>." direction)
:type 'boolean
:group 'ergoemacs-mode)
(defun ,(intern (format "ergoemacs-org-meta%s" direction)) ()
,(format "Run `org-meta%s' in the proper context.
When `ergoemacs-use-ergoemacs-meta%s' is non-nil use what ergoemacs-mode defines for <M-%s>.
ARG is the prefix argument for either command." direction direction direction)
(interactive)
(cond
((or
(not ,(intern (format "ergoemacs-use-ergoemacs-meta%s" direction)))
(org-at-heading-p)
(org-at-item-p)
(org-at-table-p)
(and (org-region-active-p)
(save-excursion
(goto-char (region-beginning))
(org-at-item-p)))
(org-with-limited-levels
(or (org-at-heading-p)
(and (org-region-active-p)
(save-excursion
(goto-char (region-beginning))
(org-at-heading-p))))))
(call-interactively ',(intern (format "org-meta%s" direction))))
(t
(ergoemacs-lookup-key-and-run ,(format "<M-%s>" direction)))))))
(ergoemacs-define-org-meta "left")
(ergoemacs-define-org-meta "right")
(ergoemacs-define-org-meta "up" t)
(ergoemacs-define-org-meta "down" t)
(defun ergoemacs-is-text-mode ()
(or (eq major-mode 'text-mode)
(eq major-mode 'markdown-mode)))
(defun ergoemacs-beginning-of-block ()
(interactive)
(if (ergoemacs-is-text-mode)
(backward-paragraph)
(beginning-of-defun)))
(defun ergoemacs-end-of-block ()
(interactive)
(if (ergoemacs-is-text-mode)
(forward-paragraph)
(end-of-defun)))
(defun ergoemacs-switch-macro-recording ()
(interactive)
(if (not defining-kbd-macro)
(kmacro-start-macro 0)
(kmacro-end-macro 1)))
(defun ergoemacs-un-camelcase-string (s &optional sep start)
"Convert CamelCase string S to lower case with word separator SEP.
Default for SEP is a hyphen \"-\".
If third argument START is non-nil, convert words after that
index in STRING."
(let ((case-fold-search nil)
new-start)
(while (string-match "[A-Z]" s (or new-start start 1))
(setq new-start (+ 1 (match-end 0)))
(setq s (replace-match (concat (or sep "-") (match-string 0 s))
t nil s)))
(setq new-start nil)
(while (string-match "[0-9]+" s (or new-start start 1))
(setq new-start (+ 1 (match-end 0)))
(setq s (replace-match (concat (or sep "-") (match-string 0 s))
t nil s)))
(downcase s)))
(defun ergoemacs-mapcar-head (fn-head fn-rest list)
"Like MAPCAR, but applies a different function to the first element."
(if list
(cons (funcall fn-head (car list)) (mapcar fn-rest (cdr list)))))
(defun ergoemacs-camelize (s &optional char)
"Convert under_score string S to CamelCase string."
(mapconcat 'identity (mapcar
(lambda (word) (capitalize (downcase word)))
(split-string s (or char "_"))) ""))
(defun ergoemacs-toggle-camel-case ()
(interactive)
(let* ((bounds (progn (if (= (cdr (bounds-of-thing-at-point 'word))
(car (bounds-of-thing-at-point 'sexp)))
(backward-char))
(bounds-of-thing-at-point 'sexp)))
(beg (car bounds))
(end (cdr bounds))
(rgn (filter-buffer-substring beg end))
(case-fold-search nil))
(delete-region beg end)
(cond
((string-match "_" rgn)
(insert (ergoemacs-camelize-method rgn)))
((string-match "^[a-z]" rgn)
(progn (insert (capitalize (substring rgn 0 1)))
(insert (substring rgn 1))))
(t
(insert (ergoemacs-un-camelcase-string rgn "_"))))))
(defun ergoemacs-open-and-close-php-tag ()
(interactive)
(insert "<?php ?>")
(backward-char 3))
(defun ergoemacs-open-and-close-php-tag-with-echo ()
(interactive)
(insert "<?php echo ; ?>")
(backward-char 4))
(defun ergoemacs-copy-full-path (&optional arg)
"Copies full path to clipboard.
If arg is nil, copy file name only.
If arg is a negative prefix, copy file path only"
(interactive "p")
(let ((fn (buffer-file-name)))
(if (or (eq arg '-) (< arg 0))
(setq fn (file-name-directory fn))
(when current-prefix-arg
(setq fn (file-name-nondirectory fn))))
(with-temp-buffer
(insert fn)
(push-mark (point))
(push-mark (point-max) nil t)
(goto-char (point-min))
(ergoemacs-cut-line-or-region))))
(defun ergoemacs-copy-file-name ()
"Copy File Name"
(interactive)
(let ((current-prefix-arg 1))
(ergoemacs-copy-full-path 1)))
(defun ergoemacs-copy-dir-path ()
"Copy File Name"
(interactive)
(ergoemacs-copy-full-path '-))
(defun ergoemacs-eol-p (eol-type)
"Does this file match the eol-type dos, mac or unix"
(save-match-data
(string-match (symbol-name eol-type) (symbol-name buffer-file-coding-system))))
(defun ergoemacs-eol-conversion (new-eol)
"Converts file to new EOL"
(let ((current-coding (symbol-name buffer-file-coding-system))
new-coding)
(setq new-coding
(intern (replace-regexp-in-string
"\\(unix\\|dos\\|mac\\|\\)$"
(cond
((eq 'dos new-eol)
"dos")
((eq 'mac new-eol)
"mac")
(t
"unix")) current-coding)))
(set-buffer-file-coding-system new-coding t)))
(defun ergoemacs-describe-major-mode ()
"Show inline doc for current major-mode."
(interactive)
(describe-function major-mode))
(defcustom ergoemacs-inkscape (executable-find "inkscape")
"Location of inkscape (used to convert svgs to png files)"
:type 'string
:group 'ergoemacs-mode)
(defcustom ergoemacs-convert (executable-find "convert")
"Location of Imagemagick's convert facility (used to concatenate png files)."
:type 'string
:group 'ergoemacs-mode)
(defvar ergoemacs-reverse-iso-chars-alist
'( (?\344 . ?a)(?\353 . ?e)(?\357 . ?i)(?\366 . ?o)(?\374 . ?u)
(?\304 . ?A)(?\313 . ?E)(?\317 . ?I)(?\326 . ?O)(?\334 . ?U)
(?\342 . ?a)(?\352 . ?e)(?\356 . ?i)(?\364 . ?o)(?\373 . ?u)
(?\302 . ?A)(?\312 . ?E)(?\316 . ?I)(?\324 . ?O)(?\333 . ?U)
(?\340 . ?a)(?\350 . ?e)(?\354 . ?i)(?\362 . ?o)(?\371 . ?u)
(?\300 . ?A)(?\310 . ?E)(?\314 . ?I)(?\322 . ?O)(?\331 . ?U)
(?\341 . ?a)(?\351 . ?e)(?\355 . ?i)(?\363 . ?o)(?\372 . ?u)(?\375 . ?y)
(?\301 . ?A)(?\311 . ?E)(?\315 . ?I)(?\323 . ?O)(?\332 . ?U)(?\335 . ?Y)
(?\347 . ?c)(?\307 . ?C) (?\361 . ?n)(?\343 . ?a)(?\365 . ?o)(?\321 . ?N)(?\303 . ?A)(?\325 . ?O)
(?\337 . "ss") (?\253 . ?\")(?\273 . ?\") ; Guillemets -> double quotes («»)
(?\346 . "ae")(?\306 . "AE") ; ae, AE (æÆ)
(?\370 . ?o)(?\330 . ?O) ; Slashed O (øØ)
(?\260 . ?@)(?\345 . ?a)(?\305 . ?A) ; Angstrom (degree) (°åÅ)
(?\277 . ??) ; Upside-down question mark (¿)
(?\241 . ?!) ; Upside-down exclamation mark (¡)
))
;;;###autoload
(defun ergoemacs-unaccent-word (num)
"Move curseur forward NUM (prefix arg) words, removing accents.
Guillemet -> quote, degree -> @, s-zed -> ss, upside-down ?! -> ?!."
(interactive "p")
(let ((start (point)))
(forward-word num)
(ergoemacs-unaccent-region start (point) nil)))
;;;###autoload
(defun ergoemacs-unaccent-region (start end display-msgs)
"Replace accented chars between START and END by unaccented chars.
Guillemet -> quote, degree -> @, s-zed -> ss, upside-down ?! -> ?!.
When called from a program, third arg DISPLAY-MSGS non-nil means to
display in-progress messages."
(interactive "r\nd") ; Display-msgs non-nil => interactive-p
(when (> start end)
(let ((temp end))
(setq end start)
(setq start temp)))
(when display-msgs
(message "Removing accents in region..."))
(save-excursion
(goto-char start)
(while (< (point) end)
(ergoemacs-unaccent-char)
(forward-char)))
(when display-msgs
(message "Removing accents in region...done")))
(defsubst ergoemacs-accented-char-p (char)
"Non-nil iff CHAR is an accented character."
(and (>= char ?\240)(<= char ?\377))) ; SPC <= char <= ÿ
;;;###autoload
(defun ergoemacs-unaccent-char ()
"Replace accented char at curser by corresponding unaccented char(s).
Guillemet -> quote, degree -> @, s-zed -> ss, upside-down ?! -> ?!."
(interactive)
(when (ergoemacs-accented-char-p (following-char))
(let ((sans-accent (assoc (following-char) ergoemacs-reverse-iso-chars-alist)))
(delete-char 1)
(insert (cdr sans-accent))
(backward-char))))
;; Shell handling
(defun ergoemacs-shell-here-directory-change-hook ()
"Renames buffer to reflect directory name."
(let ((nbn (concat (cond
((derived-mode-p 'eshell-mode) "*eshell@")
(t (replace-regexp-in-string "\\([*][^@]*[@]\\).*" "\\1" (buffer-name) t)))
(if (eq system-type 'windows-nt)
(ergoemacs :w32-long-file-name (abbreviate-file-name default-directory)) ;; Fix case issues
(abbreviate-file-name default-directory)) "*")))
(unless (string= nbn (buffer-name))
(setq nbn (generate-new-buffer-name nbn))
(rename-buffer nbn))))
(defun ergoemacs-shell-here-hook ()
"Hook for `ergoemacs-shell-here'.
Sends shell prompt string to process, then turns on
`dirtrack-mode' as well as add rename buffer filter when the directory has been changed."
(when (string-match "\\`[*].*[@].*[*]" (buffer-name))
(let ((shell (or (and (boundp 'explicit-shell-file-name) explicit-shell-file-name)
(getenv "ESHELL") shell-file-name)))
(require 'dirtrack)
(cond
((string-match "cmd\\(proxy\\)?.exe" shell)
(ergoemacs-save-buffer-state
(set (make-local-variable 'dirtrack-list) (list "^\\([a-zA-Z]:.*\\)>" 1)))
(shell-dirtrack-mode -1)
(dirtrack-mode 1))
((string-match "powershell.exe" shell)
(ergoemacs-save-buffer-state
(set (make-local-variable 'dirtrack-list) (list "^PS \\([a-zA-Z]:.*\\)>" 1)))
(shell-dirtrack-mode -1)
(dirtrack-mode 1))
(t ;; Assume basic abc@host:dir structure
(ergoemacs-save-buffer-state
(set (make-local-variable 'dirtrack-list) (list "^\\(?:.*?@\\)?\\(?:.*?:\\)?\\(?:[^ ]* \\)? *\\(.*\\) *\\([$#]\\|\\]\\)" 1)))
(shell-dirtrack-mode -1)
(dirtrack-mode 1))))))
(defun ergoemacs-shell-here (&optional shell-program buffer-prefix)
"Runs/switches to a shell process in the current directory."
(interactive)
(let* ((shell (or shell-program 'shell))
(buf-prefix (or buffer-prefix (symbol-name shell)))
(name (concat "*" buf-prefix "@" (if (eq system-type 'windows-nt)
(ergoemacs :w32-long-file-name (abbreviate-file-name default-directory)) ;; Fix case issues
(abbreviate-file-name default-directory)) "*")))
(set-buffer (get-buffer-create name))
(funcall shell name)))
(defvar ergoemacs-msys (when (file-exists-p "c:/msysgit/bin/bash.exe")
"c:/msysgit/bin/bash.exe")
"msys bash executable.")
(defun ergoemacs-msys-here ()
"Runs/switches to msys shell process in current directory."
(interactive)
(if (and ergoemacs-msys (file-exists-p ergoemacs-msys))
(let ((explicit-shell-file-name ergoemacs-msys))
(ergoemacs-shell-here nil "MSYS"))
(error "Need to specify `ergoemacs-msys'.")))
(defun ergoemacs-eshell-here ()
"Run/switch to an `eshell' process in the current directory"
(interactive)
(let* ((eshell-buffer-name
(concat "*eshell@" (if (eq system-type 'windows-nt)
(ergoemacs :w32-long-file-name (abbreviate-file-name default-directory)) ;; Fix case issues
(abbreviate-file-name default-directory)) "*"))
(eshell-exists-p (get-buffer eshell-buffer-name)))
(if eshell-exists-p
(switch-to-buffer eshell-exists-p)
(call-interactively 'eshell)
(ergoemacs-shell-here-directory-change-hook))))
(defun ergoemacs-powershell-here ()
"Runs PowerShell Here"
(interactive)
(if (not (fboundp 'powershell))
(error "Requires powershell package to run PowerShell.")
(ergoemacs-shell-here 'powershell "PowerShell")))
;;; Ergoemacs lookup words. from lookup-word-on-internet.el
(defvar ergoemacs-all-dictionaries nil
"A vector of dictionaries. Used by `lookup-ergoemacs-all-dictionaries'. http://wordyenglish.com/words/dictionary_tools.html ")
(setq ergoemacs-all-dictionaries [
"http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=�" ; 1913 Webster, WordNet
"http://www.thefreedictionary.com/�" ; AHD
"http://www.answers.com/main/ntquery?s=�" ; AHD
"http://en.wiktionary.org/wiki/�"
"http://www.google.com/search?q=define:+�" ; google
"http://www.etymonline.com/index.php?search=�" ; etymology
] )
(defun ergoemacs-lookup-word-on-internet (&optional input-word site-to-use)
"Look up current word or text selection in a online reference site.
This command launches/switches you to default browser.
Optional argument INPUT-WORD and SITE-TO-USE can be given.
SITE-TO-USE a is URL string in this form: 「http://en.wiktionary.org/wiki/�」.
the 「�」 is a placeholder for the query string.
If SITE-TO-USE is nil, Google Search is used.
For a list of online reference sites, see:
URL `http://ergoemacs.org/emacs/emacs_lookup_ref.html'"
(interactive)
(let (ξword refUrl myUrl)
(setq ξword
(if input-word
input-word
(if (region-active-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(thing-at-point 'word) )) )
(setq ξword (with-temp-buffer
(insert ξword)
(ergoemacs-unaccent-region (point-min) (point-max) t)
(goto-char (point-min))
(while (re-search-forward " " nil t)
(replace-match "%20"))
(buffer-string)))
(setq refUrl
(if site-to-use
site-to-use
"http://www.google.com/search?q=�" ))
(setq myUrl (replace-regexp-in-string "�" ξword refUrl t t))
(cond
((string-equal system-type "windows-nt") ; any flavor of Windows
(browse-url-default-windows-browser myUrl))
((string-equal system-type "gnu/linux")
(browse-url myUrl))
((string-equal system-type "darwin") ; Mac
(browse-url myUrl)))))
(defun ergoemacs-lookup-google (&optional input-word)
"Lookup urrent word or text selection in Google Search.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://www.google.com/search?q=�"))
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-lookup-wikipedia (&optional input-word)
"Lookup current word or text selection in Wikipedia.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://en.wikipedia.org/wiki/�"))
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-lookup-word-dict-org (&optional input-word)
"Lookup definition of current word or text selection in URL `http://dict.org/'.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=�" ))
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-lookup-word-definition (&optional input-word)
"Lookup definition of current word or text selection in URL `http://thefreedictionary.com/'.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://www.thefreedictionary.com/�"))
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-lookup-answers.com (&optional input-word)
"Lookup current word or text selection in URL `http://answers.com/'.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://www.answers.com/main/ntquery?s=�"))
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-lookup-wiktionary (&optional input-word)
"Lookup definition of current word or text selection in URL `http://en.wiktionary.org/'
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(let ((dict-url "http://en.wiktionary.org/wiki/�" ))
(ergoemacs-lookup-word-on-internet input-word dict-url) ) )
(defun ergoemacs-lookup-all-dictionaries (&optional input-word)
"Lookup definition in many dictionaries.
Current word or text selection is used as input.
The dictionaries used are in `ergoemacs-all-dictionaries'.
See also `ergoemacs-lookup-word-on-internet'."
(interactive)
(dolist (dict-url ergoemacs-all-dictionaries)
(ergoemacs-lookup-word-on-internet input-word dict-url)))
(defun ergoemacs-apropos-user-options (regexp)
"Show user variables that match REGEXP."
(interactive (list (read-string "Apropos user options (regexp): ")))
(let ((apropos-do-all nil))
(apropos-variable regexp)))
(defun ergoemacs-current-line (&optional pos)
"Return current line for POS or `point'"
;; Stole from org-current-line
(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)))))
(defun ergoemacs-move-text-internal (arg)
"Move region (transient-mark-mode active) or current line."
;; From Andy Stewart, who signed the gnu emacs license since he has
;; components within gnu emacs.
;; See `http://www.emacswiki.org/emacs/basic-edit-toolkit.el'
(let ((remember-point (point)))
;; Can't get correct effect of `transpose-lines'
;; when `point-max' is not at beginning of line
;; So fix this bug.
(goto-char (point-max))
(if (not (bolp)) (newline)) ;add newline to fix
(goto-char remember-point)
;; logic code start
(cond ((and mark-active transient-mark-mode)
(if (> (point) (mark))
(exchange-point-and-mark))
(let ((column (current-column))
(text (delete-and-extract-region (point) (mark))))
(forward-line arg)
(move-to-column column t)
(set-mark (point))
(insert text)
(exchange-point-and-mark)
(setq deactivate-mark nil)))
(t
(let ((column (current-column))
(line (ergoemacs-current-line)))
(beginning-of-line)
(when (or (> arg 0) (not (bobp)))
(forward-line 1)
(when (or (< arg 0) (not (eobp)))
(transpose-lines arg))
(forward-line -1)
(when (and (< arg 0) ;; Bug fix for 24.4
(= line (ergoemacs-current-line)))
(forward-line -1)))
(move-to-column column t))))))
(defun ergoemacs-move-text-up (arg)
"Move region (transient-mark-mode active) or current line ARG lines up."
(interactive "*p")
(cond
((eq major-mode 'org-mode)
(call-interactively 'org-metaup))
(t (ergoemacs-move-text-internal (- arg)))))
(defun ergoemacs-move-text-down (arg)
"Move region (transient-mar-mode active) or current line (ARG lines) down."
(interactive "*p")
(cond
((eq major-mode 'org-mode)
(call-interactively 'org-metadown))
(t (ergoemacs-move-text-internal arg))))
(defun ergoemacs-org-edit-src ()
"Deal with org source blocks and other narrowed regions.
In `org-mode' run `org-edit-special'. If `user-error' is raised
run `org-babel-tangle'.
In org source buffers run `org-edit-src-exit'
In other source buffer that `ergoemacs-mode' recoginzes as a
org-mode buffer, run `org-babel-detangle'.
With a prefix argument like \\[universial-argument] in an
`org-mode' buffer, run `org-babel-tangle'."
(interactive)
(let ((org-p (string-match "^[*]Org Src" (buffer-name))))
(cond
((and (eq major-mode 'org-mode)
current-prefix-arg)
(setq current-prefix-arg nil)
(call-interactively 'org-babel-tangle))
((eq major-mode 'org-mode)
(condition-case _err
(call-interactively 'org-edit-special)
(error (call-interactively 'org-babel-tangle))))
(org-p
(call-interactively 'org-edit-src-exit))
((ergoemacs-buffer-narrowed-p)
(call-interactively 'widen))
((region-active-p)
(call-interactively 'narrow-to-region))
((setq org-p
(save-excursion
(goto-char (point-min))
(re-search-forward (concat comment-start-skip ".*:1 ends here") nil t)))
(call-interactively 'org-babel-detangle)))))
(defun ergoemacs-describe-current-theme ()
"Describe the current theme."
(interactive)
(ergoemacs-theme-describe))
;; Ergoemacs Test suite
(unless (fboundp 'ergoemacs-test)
(autoload 'ergoemacs-test (expand-file-name "ergoemacs-test.el" ergoemacs-dir) nil t))
(defun ergoemacs-where-is-old-binding ()
"Find where the old binding of a key is now located."
(interactive)
(let (ergoemacs-mode
key-seq
cmd
key-seq2)
(unwind-protect
(progn
(setq overriding-terminal-local-map global-map)
(setq key-seq (read-key-sequence "Old Emacs Command: ")
cmd (key-binding key-seq)
overriding-terminal-local-map nil
key-seq2 (where-is-internal cmd nil t)))
(setq overriding-terminal-local-map nil))
(message "%s (if key-seq2
(message "Old Emacs Key: %s-> Ergoemacs Key: %s" (ergoemacs-key-description key-seq)
(ergoemacs-key-description key-seq2))
(message "Could not find old emacs %s" (ergoemacs-key-description key-seq)))))
(provide 'ergoemacs-functions)