scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 20:40:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

get rid of outshine

Browse Source
This commit is contained in:
Thomas von Dein
2023-04-12 20:24:10 +02:00
parent 92c3e6b6f1
commit 8370eddfae
3 changed files with 189 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
conf-lisp/elisp.el
View File

@@ -100,7 +100,7 @@ Returns t if version changed, nil otherwise."
(beginning-of-buffer) (beginning-of-buffer)
(re-search-forward ";; .. Changelog") (re-search-forward ";; .. Changelog")
(next-line) (next-line)
(tvd-outshine-end-of-section) ;; (tvd-outshine-end-of-section)
(when newversion (when newversion
(insert (format "\n;; %s\n" tvd-emacs-version))) (insert (format "\n;; %s\n" tvd-emacs-version)))
(insert (format ";; - %s\n" entry))))) (insert (format ";; - %s\n" entry)))))
@@ -116,12 +116,9 @@ Returns t if version changed, nil otherwise."
show-trailing-whitespace t) show-trailing-whitespace t)
(eldoc-mode t) (eldoc-mode t)
;; enable outline (with outshine) ;; enable outline
(outline-minor-mode) (outline-minor-mode)
;; enable outshine mode
(outshine-hook-function)
(electric-indent-local-mode t))) (electric-indent-local-mode t)))
;; use UP arrow for history in *ielm* as well, just as C-up ;; use UP arrow for history in *ielm* as well, just as C-up

7
conf-lisp/org.el
View File

@@ -239,4 +239,9 @@ down and unfold it, otherwise jump paragraph as usual."
(with-eval-after-load 'info (with-eval-after-load 'info
(info-initialize) (info-initialize)
(add-to-list 'Info-directory-list (add-to-list 'Info-directory-list
(expand-file-name "~/.emacs.d/lisp/org/doc")))) (expand-file-name "~/.emacs.d/lisp/org/doc")))
;; orange fringe when narrowed
(advice-add 'org-narrow-to-subtree :after
'(lambda (&rest args)
(set-face-attribute 'fringe nil :background tvd-fringe-narrow-bg))))

8
conf-lisp/outline.el
View File

@@ -57,16 +57,12 @@ otherwise fold current level and jump one level up."
'(progn '(progn
(add-hook 'outline-minor-mode-hook (add-hook 'outline-minor-mode-hook
(lambda () (lambda ()
;; narrowing, we use outshine functions, it's loaded anyway ;; narrowing, we use org functions, it's loaded anyway
(defalias 'n 'outshine-narrow-to-subtree) (defalias 'n 'org-narrow-to-subtree)
(defalias 'w 'widen) (defalias 'w 'widen)
(define-key outline-minor-mode-map (kbd "<C-up>") 'tvd-outline-heading-up) (define-key outline-minor-mode-map (kbd "<C-up>") 'tvd-outline-heading-up)
(define-key outline-minor-mode-map (kbd "<C-down>") 'tvd-outline-heading-down) (define-key outline-minor-mode-map (kbd "<C-down>") 'tvd-outline-heading-down)
;;(define-key outline-minor-mode-map (kbd "<C-left>") 'tvd-outline-left-or-level-up) ;;(define-key outline-minor-mode-map (kbd "<C-left>") 'tvd-outline-left-or-level-up)
)))) ))))
;; orange fringe when narrowed
(advice-add 'outshine-narrow-to-subtree :after
'(lambda (&rest args)
(set-face-attribute 'fringe nil :background tvd-fringe-narrow-bg)))