mirror of
https://codeberg.org/scip/dot-emacs.git
synced 2025-12-17 04:20:57 +01:00
20170712.01:
- disabled org mode superscripts - + winner mode - org mode 'code new binding: C-c 0 - fixed emacs-change-log - added tvd-outshine-end-of-section incl speed command
This commit is contained in:
39
.emacs
39
.emacs
@@ -1,4 +1,4 @@
|
|||||||
;; Toms Emacs Config - portable - version (20170711.02) -*-emacs-lisp-*-
|
;; Toms Emacs Config - portable - version (20170712.01) -*-emacs-lisp-*-
|
||||||
;; * Introduction
|
;; * Introduction
|
||||||
|
|
||||||
;; This is my emacs config, it is more than twenty years old. It
|
;; This is my emacs config, it is more than twenty years old. It
|
||||||
@@ -527,6 +527,13 @@
|
|||||||
;; 20170711.02:
|
;; 20170711.02:
|
||||||
;; - fixed POD abbrevs, added way to move point after expansion
|
;; - fixed POD abbrevs, added way to move point after expansion
|
||||||
|
|
||||||
|
;; 20170712.01:
|
||||||
|
;; - disabled org mode superscripts
|
||||||
|
;; - + winner mode
|
||||||
|
;; - org mode 'code new binding: C-c 0
|
||||||
|
;; - fixed emacs-change-log
|
||||||
|
;; - added tvd-outshine-end-of-section incl speed command
|
||||||
|
|
||||||
;; ** TODO
|
;; ** TODO
|
||||||
|
|
||||||
;; - check helpful https://github.com/wilfred/helpful
|
;; - check helpful https://github.com/wilfred/helpful
|
||||||
@@ -535,6 +542,8 @@
|
|||||||
;; - put tvd-ci-* stuff into mcyt
|
;; - put tvd-ci-* stuff into mcyt
|
||||||
;; - check https://github.com/Wilfred/refine
|
;; - check https://github.com/Wilfred/refine
|
||||||
;; https://github.com/Wilfred/emacs-refactor
|
;; https://github.com/Wilfred/emacs-refactor
|
||||||
|
;; - check https://github.com/Malabarba/speed-of-thought-lisp
|
||||||
|
;; - https://github.com/tkf/emacs-jedi
|
||||||
|
|
||||||
;; ** Parking Lot / Snippets
|
;; ** Parking Lot / Snippets
|
||||||
|
|
||||||
@@ -553,7 +562,7 @@
|
|||||||
;; My emacs config has a version (consisting of a timestamp with a
|
;; My emacs config has a version (consisting of a timestamp with a
|
||||||
;; serial), which I display in the mode line. So I can clearly see, if
|
;; serial), which I display in the mode line. So I can clearly see, if
|
||||||
;; I'm using an outdated config somewhere.
|
;; I'm using an outdated config somewhere.
|
||||||
(defvar tvd-emacs-version "20170711.02")
|
(defvar tvd-emacs-version "20170712.01")
|
||||||
|
|
||||||
;; --------------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -808,6 +817,13 @@ to next buffer otherwise."
|
|||||||
|
|
||||||
;; --------------------------------------------------------------------------------
|
;; --------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
;; *** Remember and Restore Window Configurations - winner mode
|
||||||
|
|
||||||
|
(winner-mode 1)
|
||||||
|
|
||||||
|
;; keybindings: C-c left - winner-undo
|
||||||
|
;; keybindings: C-c right - winner-redo
|
||||||
|
|
||||||
;; ** re-read a modified buffer
|
;; ** re-read a modified buffer
|
||||||
|
|
||||||
;; F5 == reload file if it has been modified by another process, shift
|
;; F5 == reload file if it has been modified by another process, shift
|
||||||
@@ -2745,7 +2761,7 @@ a list symbol describing the command."
|
|||||||
(beginning-of-buffer)
|
(beginning-of-buffer)
|
||||||
(re-search-forward ";; .. Changelog")
|
(re-search-forward ";; .. Changelog")
|
||||||
(next-line)
|
(next-line)
|
||||||
(forward-paragraph)
|
(tvd-outshine-end-of-section)
|
||||||
(insert (format ";; - %s\n" entry))))
|
(insert (format ";; - %s\n" entry))))
|
||||||
|
|
||||||
;; elisp config
|
;; elisp config
|
||||||
@@ -2961,6 +2977,7 @@ down and unfold it, otherwise jump paragraph as usual."
|
|||||||
org-hide-emphasis-markers t
|
org-hide-emphasis-markers t
|
||||||
org-fontify-done-headline t
|
org-fontify-done-headline t
|
||||||
org-pretty-entities t
|
org-pretty-entities t
|
||||||
|
org-use-sub-superscripts nil
|
||||||
org-confirm-babel-evaluate nil)
|
org-confirm-babel-evaluate nil)
|
||||||
; shortcuts
|
; shortcuts
|
||||||
(setq org-speed-commands-user
|
(setq org-speed-commands-user
|
||||||
@@ -3000,7 +3017,7 @@ down and unfold it, otherwise jump paragraph as usual."
|
|||||||
|
|
||||||
(local-set-key (kbd "C-c b") 'bold)
|
(local-set-key (kbd "C-c b") 'bold)
|
||||||
(local-set-key (kbd "C-c /") 'italic)
|
(local-set-key (kbd "C-c /") 'italic)
|
||||||
(local-set-key (kbd "C-c c") 'code)
|
(local-set-key (kbd "C-c 0") 'code) ; aka = without shift
|
||||||
(local-set-key (kbd "C-c _") 'underline)
|
(local-set-key (kbd "C-c _") 'underline)
|
||||||
|
|
||||||
; edit babel src block in extra buffer:
|
; edit babel src block in extra buffer:
|
||||||
@@ -3425,6 +3442,18 @@ update heading list if neccessary."
|
|||||||
(goto-char (cdr (assoc heading tvd-headings)))
|
(goto-char (cdr (assoc heading tvd-headings)))
|
||||||
(tvd-outshine-sparse-tree))))))
|
(tvd-outshine-sparse-tree))))))
|
||||||
|
|
||||||
|
(defun tvd-outshine-end-of-section ()
|
||||||
|
"Jump to the end of an outshine section."
|
||||||
|
(interactive)
|
||||||
|
(let ((end))
|
||||||
|
(outline-show-subtree)
|
||||||
|
(save-excursion
|
||||||
|
(outshine-narrow-to-subtree)
|
||||||
|
(goto-char (point-max))
|
||||||
|
(setq end (point))
|
||||||
|
(widen))
|
||||||
|
(goto-char end)))
|
||||||
|
|
||||||
;; outshine mode config (inside outline mode)
|
;; outshine mode config (inside outline mode)
|
||||||
(eval-after-load "outline"
|
(eval-after-load "outline"
|
||||||
'(progn
|
'(progn
|
||||||
@@ -3439,7 +3468,7 @@ update heading list if neccessary."
|
|||||||
(quote (
|
(quote (
|
||||||
("v" . outshine-narrow-to-subtree)
|
("v" . outshine-narrow-to-subtree)
|
||||||
("q" . widen)
|
("q" . widen)
|
||||||
)))))))
|
("e" . tvd-outshine-end-of-section))))))))
|
||||||
|
|
||||||
;; Narrowing now works within the headline rather than requiring to be on it
|
;; Narrowing now works within the headline rather than requiring to be on it
|
||||||
(advice-add 'outshine-narrow-to-subtree :before
|
(advice-add 'outshine-narrow-to-subtree :before
|
||||||
|
|||||||
1240
emacs.html
1240
emacs.html
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user