|
@ -325,7 +325,7 @@ Restore it to reasonable value after init. Also stop garbage collection during m |
|
|
:END: |
|
|
:END: |
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
#+BEGIN_SRC emacs-lisp |
|
|
(defun my/toggle-theme () |
|
|
|
|
|
|
|
|
(defun me/toggle-theme () |
|
|
(interactive) |
|
|
(interactive) |
|
|
(when (or *sys/windows* *sys/linux*) |
|
|
(when (or *sys/windows* *sys/linux*) |
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
|
(if (eq (car custom-enabled-themes) 'tango-dark) |
|
@ -335,7 +335,7 @@ Restore it to reasonable value after init. Also stop garbage collection during m |
|
|
(disable-theme 'tango) |
|
|
(disable-theme 'tango) |
|
|
(load-theme 'tango-dark))))) |
|
|
(load-theme 'tango-dark))))) |
|
|
|
|
|
|
|
|
(bind-key "C-c t" 'my/toggle-theme) |
|
|
|
|
|
|
|
|
(bind-key "C-c t" 'me/toggle-theme) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
Windows Theme: |
|
|
Windows Theme: |
|
@ -359,10 +359,10 @@ Windows Theme: |
|
|
(visual-line-mode . adaptive-wrap-prefix-mode)) |
|
|
(visual-line-mode . adaptive-wrap-prefix-mode)) |
|
|
; :init |
|
|
; :init |
|
|
; (when (fboundp 'adaptive-wrap-prefix-mode) |
|
|
; (when (fboundp 'adaptive-wrap-prefix-mode) |
|
|
; (defun my/activate-adaptive-wrap-prefix-mode () |
|
|
|
|
|
|
|
|
; (defun me/activate-adaptive-wrap-prefix-mode () |
|
|
; "Toggle `visual-line-mode' and `adaptive-wrap-prefix-mode' simultaneously." |
|
|
; "Toggle `visual-line-mode' and `adaptive-wrap-prefix-mode' simultaneously." |
|
|
; (adaptive-wrap-prefix-mode (if visual-line-mode 1 -1))) |
|
|
; (adaptive-wrap-prefix-mode (if visual-line-mode 1 -1))) |
|
|
; (add-hook 'visual-line-mode-hook 'my/activate-adaptive-wrap-prefix-mode))) |
|
|
|
|
|
|
|
|
; (add-hook 'visual-line-mode-hook 'me/activate-adaptive-wrap-prefix-mode))) |
|
|
#+END_SRC |
|
|
#+END_SRC |
|
|
|
|
|
|
|
|
** line numbers |
|
|
** line numbers |
|
@ -727,17 +727,17 @@ Uses default features of emacs instead of bringing a new framework in like helm |
|
|
("<escape>" . company-abort)) |
|
|
("<escape>" . company-abort)) |
|
|
:hook |
|
|
:hook |
|
|
(after-init . global-company-mode) |
|
|
(after-init . global-company-mode) |
|
|
(emacs-lisp-mode . my/company-elisp) |
|
|
|
|
|
(org-mode . my/company-org) |
|
|
|
|
|
|
|
|
(emacs-lisp-mode . me/company-elisp) |
|
|
|
|
|
(org-mode . me/company-org) |
|
|
:config |
|
|
:config |
|
|
(defun my/company-elisp () |
|
|
|
|
|
|
|
|
(defun me/company-elisp () |
|
|
(message "set up company for elisp") |
|
|
(message "set up company for elisp") |
|
|
(set (make-local-variable 'company-backends) |
|
|
(set (make-local-variable 'company-backends) |
|
|
'(company-capf ;; capf needs to be before yasnippet, or lsp fucks up completion for elisp |
|
|
'(company-capf ;; capf needs to be before yasnippet, or lsp fucks up completion for elisp |
|
|
company-yasnippet |
|
|
company-yasnippet |
|
|
company-dabbrev-code |
|
|
company-dabbrev-code |
|
|
company-files))) |
|
|
company-files))) |
|
|
(defun my/company-org () |
|
|
|
|
|
|
|
|
(defun me/company-org () |
|
|
(set (make-local-variable 'company-backends) |
|
|
(set (make-local-variable 'company-backends) |
|
|
'(company-capf company-files)) |
|
|
'(company-capf company-files)) |
|
|
;; (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
|
;; (add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
@ -794,7 +794,7 @@ Uses default features of emacs instead of bringing a new framework in like helm |
|
|
; (add-hook 'org-src-mode-hook 'smartparens-mode) |
|
|
; (add-hook 'org-src-mode-hook 'smartparens-mode) |
|
|
; (add-hook 'org-mode-hook 'org-indent-mode) |
|
|
; (add-hook 'org-mode-hook 'org-indent-mode) |
|
|
:config |
|
|
:config |
|
|
(defun my/org-company () |
|
|
|
|
|
|
|
|
(defun me/org-company () |
|
|
(set (make-local-variable 'company-backends) |
|
|
(set (make-local-variable 'company-backends) |
|
|
'(company-capf company-files)) |
|
|
'(company-capf company-files)) |
|
|
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
|
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
@ -1507,11 +1507,11 @@ deactivate |
|
|
:mode |
|
|
:mode |
|
|
("\\.beancount$" . beancount-mode) |
|
|
("\\.beancount$" . beancount-mode) |
|
|
:hook |
|
|
:hook |
|
|
(beancount-mode . my/beancount-company) |
|
|
|
|
|
|
|
|
(beancount-mode . me/beancount-company) |
|
|
:init |
|
|
:init |
|
|
(add-hook 'beancount-mode-hook 'company/beancount-mode-hook) |
|
|
(add-hook 'beancount-mode-hook 'company/beancount-mode-hook) |
|
|
:config |
|
|
:config |
|
|
(defun my/beancount-company () |
|
|
|
|
|
|
|
|
(defun me/beancount-company () |
|
|
(set (make-local-variable 'company-backends) |
|
|
(set (make-local-variable 'company-backends) |
|
|
'(company-beancount))) |
|
|
'(company-beancount))) |
|
|
(setq beancount-filename-main "/home/marc/Archiv/Finanzen/Transaktionen/transactions.beancount")) |
|
|
(setq beancount-filename-main "/home/marc/Archiv/Finanzen/Transaktionen/transactions.beancount")) |
|
|