Browse Source

replaced my/ with me/ in own functions

master
Marc 3 years ago
parent
commit
e679840b14
1 changed files with 11 additions and 11 deletions
  1. 22
      config.org

22
config.org

@ -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"))

Loading…
Cancel
Save