|
|
|
@ -1,38 +1,67 @@ |
|
|
|
(defun me/tangle-init () |
|
|
|
"If the current buffer is 'init.org', |
|
|
|
the code blocks are tangled, and the tangled file is compiled." |
|
|
|
(when (equal (buffer-file-name) |
|
|
|
(expand-file-name (concat user-emacs-directory "init.org"))) |
|
|
|
;; avoid running hooks |
|
|
|
(let ((prog-mode-hook nil)) |
|
|
|
(org-babel-tangle) |
|
|
|
(byte-compile-file (concat user-emacs-directory "init.el")) |
|
|
|
(load-file user-init-file)))) |
|
|
|
(add-hook 'after-save-hook 'me/tangle-init) |
|
|
|
|
|
|
|
(require 'package) |
|
|
|
|
|
|
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) |
|
|
|
(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t) |
|
|
|
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) |
|
|
|
|
|
|
|
(package-initialize) |
|
|
|
|
|
|
|
(unless (package-installed-p 'use-package) |
|
|
|
(package-refresh-contents) |
|
|
|
(package-install 'use-package)) |
|
|
|
|
|
|
|
(setq use-package-verbose nil) |
|
|
|
|
|
|
|
;(eval-when-compile |
|
|
|
(require 'use-package);) |
|
|
|
|
|
|
|
(defvar MY--PATH_USER_LOCAL (expand-file-name "~/.emacs.d/user-local/")) |
|
|
|
(defun me/tangle-init () |
|
|
|
"If the current buffer is 'init.org', |
|
|
|
the code blocks are tangled, and the tangled file is compiled." |
|
|
|
(when (equal (buffer-file-name) |
|
|
|
(expand-file-name (concat user-emacs-directory "init.org"))) |
|
|
|
;; avoid running hooks |
|
|
|
(let ((prog-mode-hook nil)) |
|
|
|
(org-babel-tangle) |
|
|
|
(byte-compile-file (concat user-emacs-directory "init.el")) |
|
|
|
(load-file user-init-file)))) |
|
|
|
(add-hook 'after-save-hook 'me/tangle-init) |
|
|
|
|
|
|
|
(require 'package) |
|
|
|
|
|
|
|
;; bug before emacs 26.3 |
|
|
|
(when (version< emacs-version "26.3") |
|
|
|
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")) |
|
|
|
(add-to-list 'package-archives '("elpa" . "https://elpa.gnu.org/packages/") t) |
|
|
|
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) |
|
|
|
(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t) |
|
|
|
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) |
|
|
|
|
|
|
|
(package-initialize) |
|
|
|
|
|
|
|
(unless (package-installed-p 'use-package) |
|
|
|
(package-refresh-contents) |
|
|
|
(package-install 'use-package)) |
|
|
|
|
|
|
|
(setq use-package-verbose nil) |
|
|
|
|
|
|
|
(eval-when-compile |
|
|
|
(require 'use-package)) |
|
|
|
(require 'bind-key) |
|
|
|
(use-package diminish |
|
|
|
:ensure t) |
|
|
|
|
|
|
|
(defvar me/whoami |
|
|
|
(if (string-equal (system-name) "PMTS01") |
|
|
|
"work_remote" |
|
|
|
(if (string-equal (system-name) "laptop") |
|
|
|
"home_laptop" |
|
|
|
(if (string-equal (system-name) "PMPCNEU08") |
|
|
|
"work_local" |
|
|
|
"home_desktop")))) |
|
|
|
|
|
|
|
(defvar MY--PATH_USER_LOCAL (expand-file-name "~/.emacs.d/user-local/")) |
|
|
|
(defvar MY--PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/")) |
|
|
|
(pcase me/whoami |
|
|
|
("home" |
|
|
|
(progn |
|
|
|
(defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/")) |
|
|
|
(defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/")) |
|
|
|
(defvar MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/")))) |
|
|
|
("home_laptop" |
|
|
|
(progn |
|
|
|
(defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/")) |
|
|
|
(defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/")) |
|
|
|
(defvar MY--PATH_ORG_JOURNAL (expand-file-name "~/Archiv/Organisieren/Journal/")))) |
|
|
|
("work_remote" |
|
|
|
(progn |
|
|
|
(defvar MY--PATH_ORG_FILES "p:/Eigene Dateien/Notizen/") |
|
|
|
(defvar MY--PATH-ORG-JOURNAL "p:/Eigene Dateien/Notizen/Journal/") |
|
|
|
(defvar MY--PATH_START "p:/Eigene Dateien/Notizen/")))) |
|
|
|
|
|
|
|
(defvar MY--PATH_ORG_FILES (expand-file-name "~/Archiv/Organisieren/")) |
|
|
|
(defvar MY--PATH_ORG_FILES_MOBILE (expand-file-name "~/Archiv/Organisieren/mobile/")) |
|
|
|
(defvar MY--PATH_ORG_JOURNAl (expand-file-name "~/Archiv/Organisieren/Journal/")) |
|
|
|
(setq bookmark-default-file (concat MY--PATH_USER_LOCAL "bookmarks")) |
|
|
|
(setq recentf-save-file (concat MY--PATH_USER_LOCAL "recentf")) |
|
|
|
(setq custom-file (concat MY--PATH_USER_LOCAL "custom.el")) ;; don't spam init.e with saved customization settings |
|
|
|
@ -45,14 +74,16 @@ the code blocks are tangled, and the tangled file is compiled." |
|
|
|
(setq custom-safe-themes t) ;; don't ask me if I want to load a theme |
|
|
|
(setq sentence-end-double-space nil) ;; don't coun two spaces after a period as the end of a sentence. |
|
|
|
(delete-selection-mode t) ;; delete selected region when typing |
|
|
|
(save-place-mode 1) ;; saves position in file when it's closed |
|
|
|
(setq save-place-forget-unreadable-files nil) ;; checks if file is readable before saving position |
|
|
|
|
|
|
|
(setq locale-coding-system 'utf-8) |
|
|
|
(set-terminal-coding-system 'utf-8) |
|
|
|
(set-keyboard-coding-system 'utf-8) |
|
|
|
(set-selection-coding-system 'utf-8) |
|
|
|
(if (eq system-type 'windows-nt) |
|
|
|
(prefer-coding-system 'utf-8dos) |
|
|
|
(prefer-coding-system 'utf-8)) |
|
|
|
(prefer-coding-system 'utf-8-dos) |
|
|
|
(prefer-coding-system 'utf-8)) |
|
|
|
(blink-cursor-mode -1) ;; turn off blinking cursor |
|
|
|
(show-paren-mode t) ;; show other part of brackets |
|
|
|
(column-number-mode t) |
|
|
|
@ -60,44 +91,57 @@ the code blocks are tangled, and the tangled file is compiled." |
|
|
|
(setq-default indent-tabs-mode nil) ;; avoid tabs in place of multiple spaces (they look bad in tex) |
|
|
|
(setq-default indicate-empty-lines t) ;; show empty lines |
|
|
|
(setq scroll-margin 5 ;; smooth scrolling |
|
|
|
scroll-conservatively 10000 |
|
|
|
scroll-preserve-screen-position 1 |
|
|
|
scroll-step 1) |
|
|
|
scroll-conservatively 10000 |
|
|
|
scroll-preserve-screen-position 1 |
|
|
|
scroll-step 1) |
|
|
|
(global-hl-line-mode t) ;; highlight current line |
|
|
|
(menu-bar-mode 0) ;; disable menu bar |
|
|
|
(tool-bar-mode 0) ;; disable tool bar |
|
|
|
(scroll-bar-mode 0) ;; disable scroll bar |
|
|
|
|
|
|
|
(set-face-font 'default "Hack Nerd Font Mono-10") |
|
|
|
|
|
|
|
(global-visual-line-mode) |
|
|
|
(diminish 'visual-line-mode) |
|
|
|
(use-package adaptive-wrap |
|
|
|
:ensure t |
|
|
|
(menu-bar-mode 0) ;; disable menu bar |
|
|
|
(tool-bar-mode 0) ;; disable tool bar |
|
|
|
(scroll-bar-mode 0) ;; disable scroll bar |
|
|
|
|
|
|
|
(when (eq system-type 'windows-nt) |
|
|
|
(remove-hook 'find-file-hooks 'vc-refresh-state) |
|
|
|
(progn |
|
|
|
(setq gc-cons-threshold (* 511 1024 1024) |
|
|
|
gc-cons-percentage 0.5 |
|
|
|
garbage-collection-messages t |
|
|
|
w32-pipe-read-delay 0 |
|
|
|
w32-get-true-file-attributes nil) |
|
|
|
(run-with-idle-timer 5 t #'garbage-collect))) |
|
|
|
|
|
|
|
(if (string-equal system-type "gnu/linux") |
|
|
|
(set-face-font 'default "Hack-10")) |
|
|
|
|
|
|
|
(global-visual-line-mode) |
|
|
|
(diminish 'visual-line-mode) |
|
|
|
(use-package adaptive-wrap |
|
|
|
:ensure t |
|
|
|
:config |
|
|
|
(add-hook 'visual-line-mode-hook #'adaptive-wrap-prefix-mode)) |
|
|
|
; :init |
|
|
|
; (when (fboundp 'adaptive-wrap-prefix-mode) |
|
|
|
; (defun my/activate-adaptive-wrap-prefix-mode () |
|
|
|
; "Toggle `visual-line-mode' and `adaptive-wrap-prefix-mode' simultaneously." |
|
|
|
; (adaptive-wrap-prefix-mode (if visual-line-mode 1 -1))) |
|
|
|
; (add-hook 'visual-line-mode-hook 'my/activate-adaptive-wrap-prefix-mode))) |
|
|
|
|
|
|
|
(use-package display-line-numbers |
|
|
|
:init |
|
|
|
(when (fboundp 'adaptive-wrap-prefix-mode) |
|
|
|
(defun my/activate-adaptive-wrap-prefix-mode () |
|
|
|
"Toggle `visual-line-mode' and `adaptive-wrap-prefix-mode' simultaneously." |
|
|
|
(adaptive-wrap-prefix-mode (if visual-line-mode 1 -1))) |
|
|
|
(add-hook 'visual-line-mode-hook 'my/activate-adaptive-wrap-prefix-mode))) |
|
|
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode) |
|
|
|
(add-hook 'org-src-mode-hook 'display-line-numbers-mode) |
|
|
|
:config |
|
|
|
(setq-default display-line-numbers-type 'visual |
|
|
|
display-line-numbers-current-absolute t |
|
|
|
display-line-numbers-with 4 |
|
|
|
display-line-numbers-widen t)) |
|
|
|
; (add-hook 'emacs-lisp-mode-hook 'display-line-numbers-mode) |
|
|
|
|
|
|
|
(use-package rainbow-mode |
|
|
|
:ensure t |
|
|
|
:diminish |
|
|
|
:hook ((org-mode |
|
|
|
emacs-lisp-mode) . rainbow-mode)) |
|
|
|
|
|
|
|
(use-package display-line-numbers |
|
|
|
:init |
|
|
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode) |
|
|
|
(add-hook 'org-src-mode-hook 'display-line-numbers-mode) |
|
|
|
:config |
|
|
|
(setq-default display-line-numbers-type 'visual |
|
|
|
display-line-numbers-current-absolute t |
|
|
|
display-line-numbers-with 4 |
|
|
|
display-line-numbers-widen t)) |
|
|
|
; (add-hook 'emacs-lisp-mode-hook 'display-line-numbers-mode) |
|
|
|
|
|
|
|
(use-package rainbow-mode |
|
|
|
:diminish |
|
|
|
:hook ((org-mode |
|
|
|
emacs-lisp-mode) . rainbow-mode)) |
|
|
|
|
|
|
|
(require 'undo-tree) |
|
|
|
(use-package undo-tree |
|
|
|
:ensure t |
|
|
|
:diminish undo-tree-mode |
|
|
|
@ -115,45 +159,153 @@ display-line-numbers-widen t)) |
|
|
|
([f9] . imenu-list-smart-toggle)) |
|
|
|
) |
|
|
|
|
|
|
|
(require 'which-key) |
|
|
|
(use-package which-key |
|
|
|
:ensure t |
|
|
|
:diminish which-key-mode |
|
|
|
:config |
|
|
|
(which-key-mode) |
|
|
|
(which-key-setup-side-window-right-bottom) |
|
|
|
(which-key-setup-minibuffer) |
|
|
|
(setq which-key-idle-delay 0.5)) |
|
|
|
(use-package which-key |
|
|
|
:ensure t |
|
|
|
:diminish which-key-mode |
|
|
|
:config |
|
|
|
(which-key-mode) |
|
|
|
(which-key-setup-side-window-right-bottom) |
|
|
|
(which-key-setup-minibuffer) |
|
|
|
(setq which-key-idle-delay 0.5)) |
|
|
|
|
|
|
|
(use-package org |
|
|
|
:ensure org-plus-contrib |
|
|
|
:init |
|
|
|
(add-hook 'org-mode-hook 'company/org-mode-hook) |
|
|
|
(use-package evil |
|
|
|
:ensure t |
|
|
|
:defer .1 ;; don't block emacs when starting, load evil immediately after startup |
|
|
|
:config |
|
|
|
;; (require 'org-id) |
|
|
|
(add-to-list 'org-modules "org-id") |
|
|
|
(setq org-default-notes-file (concat MY--PATH_ORG_FILES "notes.org") |
|
|
|
org-agenda-files (list MY--PATH_ORG_FILES |
|
|
|
MY--PATH_ORG_FILES_MOBILE) |
|
|
|
org-id-locations-file (concat MY--PATH_USER_LOCAL ".org-id-locations") |
|
|
|
org-log-into-drawer "LOGBOOK")) |
|
|
|
(org-id-update-id-locations) |
|
|
|
|
|
|
|
(require 'org-habit) ;;TODO Lösung ohne require finden, scheint mir nicht ideal zu sein, nur um ein org-modul zu aktivieren |
|
|
|
(evil-mode 1)) |
|
|
|
|
|
|
|
(use-package general |
|
|
|
:ensure t) |
|
|
|
|
|
|
|
(general-define-key |
|
|
|
:states 'normal |
|
|
|
:keymaps 'imenu-list-major-mode-map |
|
|
|
(kbd "RET") '(imenu-list-goto-entry :which-key "goto") |
|
|
|
(kbd "TAB") '(hs-toggle-hiding :which-key "collapse") |
|
|
|
"d" '(imenu-list-display-entry :which-key "show") |
|
|
|
"q" '(imenu-list-quit-window :which-key "quit")) |
|
|
|
|
|
|
|
(use-package org |
|
|
|
:ensure org-plus-contrib |
|
|
|
:mode (("\.org$" . org-mode)) |
|
|
|
:init |
|
|
|
(add-hook 'org-mode-hook 'company/org-mode-hook) |
|
|
|
(add-hook 'org-src-mode-hook 'smartparens-mode) |
|
|
|
:config |
|
|
|
(setq org-modules (quote (org-id |
|
|
|
org-habit |
|
|
|
))) |
|
|
|
(setq org-default-notes-file (concat MY--PATH_ORG_FILES "notes.org") |
|
|
|
org-agenda-files (list MY--PATH_ORG_FILES |
|
|
|
MY--PATH_ORG_FILES_MOBILE) |
|
|
|
org-id-locations-file (concat MY--PATH_USER_LOCAL ".org-id-locations") |
|
|
|
org-log-into-drawer "LOGBOOK") |
|
|
|
|
|
|
|
;; some display customizations |
|
|
|
(setq org-pretty-entities t |
|
|
|
org-startup-truncated t |
|
|
|
org-startup-align-all-tables t) |
|
|
|
|
|
|
|
;; some source code blocks customizations |
|
|
|
(setq org-src-window-setup 'current-window ;; C-c ' opens in current window |
|
|
|
org-src-fontify-natively t ;; use syntax highlighting in code blocks |
|
|
|
org-src-preserve-indentation t ;; no extra indentation |
|
|
|
org-src-tab-acts-natively t)) |
|
|
|
|
|
|
|
(org-babel-do-load-languages |
|
|
|
'org-babel-load-languages |
|
|
|
'((emacs-lisp . t) |
|
|
|
(gnuplot . t) |
|
|
|
(js . t) |
|
|
|
(latex . t) |
|
|
|
(lisp . t) |
|
|
|
(python . t) |
|
|
|
(shell . t) |
|
|
|
(sqlite . t) |
|
|
|
(org . t) |
|
|
|
(R . t) |
|
|
|
(scheme . t) |
|
|
|
)) |
|
|
|
|
|
|
|
(defun me--org-confirm-babel-evaluate (lang body) |
|
|
|
"Do not confirm evaluation for these languages." |
|
|
|
(not (or (string= lang "python") |
|
|
|
(string= lang "ipython") |
|
|
|
(string= lang "emacs-lisp") |
|
|
|
(string= lang "R") |
|
|
|
(string= lang "latex") |
|
|
|
(string= lang "sqlite")))) |
|
|
|
(setq org-confirm-babel-evaluate 'me--org-confirm-babel-evaluate) |
|
|
|
|
|
|
|
(require 'org-habit) ;;TODO Lösung ohne require finden, scheint mir nicht ideal zu sein, nur um ein org-modul zu aktivieren |
|
|
|
;; (add-to-list 'org-modules "org-habit") |
|
|
|
(setq org-habit-graph-column 80 |
|
|
|
org-habit-preceding-days 30 |
|
|
|
org-habit-following-days 7 |
|
|
|
org-habit-show-habits-only-for-today nil) |
|
|
|
|
|
|
|
(use-package org-journal |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:custom |
|
|
|
(org-journal-dir MY--PATH_ORG_JOURNAl) |
|
|
|
(org-journal-enable-agenda-integration t)) |
|
|
|
(use-package org-id |
|
|
|
:config |
|
|
|
(setq org-id-link-to-org-use-id t) |
|
|
|
(org-id-update-id-locations)) ;; update id file .org-id-locations on startup |
|
|
|
|
|
|
|
(pcase me/whoami |
|
|
|
("work_remote") |
|
|
|
(setq org-todo-keywords |
|
|
|
'((sequence "OPEN" "TODO" "UNCLEAR" "|" "DONE" "IMPOSSIBLE")))) |
|
|
|
|
|
|
|
(bind-key "C-c l" 'org-store-link) |
|
|
|
(bind-key "C-c c" 'org-capture) |
|
|
|
(bind-key "C-c a" 'org-agenda) |
|
|
|
|
|
|
|
(setq org-agenda-sorting-strategy |
|
|
|
(quote |
|
|
|
((agenda deadline-up priority-down) |
|
|
|
(todo priority-down category-keep) |
|
|
|
(tags priority-down category-keep) |
|
|
|
(search category-keep)))) |
|
|
|
|
|
|
|
(defun me--org-skip-subtree-if-priority (priority) |
|
|
|
"Skip an agenda subtree if it has a priority of PRIORITY. |
|
|
|
|
|
|
|
PRIORITY may be one of the characters ?A, ?B, or ?C." |
|
|
|
(let ((subtree-end (save-excursion (org-end-of-subtree t))) |
|
|
|
(pri-value (* 1000 (- org-lowest-priority priority))) |
|
|
|
(pri-current (org-get-priority (thing-at-point 'line t)))) |
|
|
|
(if (= pri-value pri-current) |
|
|
|
subtree-end |
|
|
|
nil))) |
|
|
|
|
|
|
|
(setq org-agenda-custom-commands |
|
|
|
'(("c" "Simple agenda view" |
|
|
|
((tags "PRIORITY=\"A\"" |
|
|
|
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) |
|
|
|
(org-agenda-overriding-header "Hohe Priorität:"))) |
|
|
|
(agenda "" |
|
|
|
((org-agenda-span 7) |
|
|
|
(org-agenda-start-on-weekday nil) |
|
|
|
(org-agenda-overriding-header "Nächste 7 Tage:"))) |
|
|
|
(alltodo "" |
|
|
|
((org-agenda-skip-function '(or (me--org-skip-subtree-if-priority ?A) |
|
|
|
(org-agenda-skip-if nil '(scheduled deadline)))) |
|
|
|
(org-agenda-overriding-header "Sonstige Aufgaben:"))))))) |
|
|
|
|
|
|
|
;;(use-package org-caldav |
|
|
|
;; :ensure t |
|
|
|
;; :config |
|
|
|
;; (setq org-caldav-url "https://nextcloud.cloudsphere.duckdns.org/remote.php/dav/calendars/marc" |
|
|
|
;; org-caldav-calendar-id "orgmode" |
|
|
|
;; org-caldav-inbox (expand-file-name "~/Archiv/Organisieren/caldav-inbox") |
|
|
|
;; org-caldav-files (concat MY--PATH_ORG_FILES "tasks"))) |
|
|
|
|
|
|
|
(use-package org-journal |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:custom |
|
|
|
(org-journal-dir MY--PATH_ORG_JOURNAl) |
|
|
|
(org-journal-enable-agenda-integration t)) |
|
|
|
|
|
|
|
(require 'ivy) |
|
|
|
; (require 'ivy) |
|
|
|
(use-package ivy |
|
|
|
:ensure t |
|
|
|
:diminish |
|
|
|
@ -188,170 +340,200 @@ display-line-numbers-widen t)) |
|
|
|
(use-package ivy-hydra |
|
|
|
:ensure t) |
|
|
|
|
|
|
|
(require 'company) |
|
|
|
(use-package company |
|
|
|
:defer 1 |
|
|
|
:bind |
|
|
|
(:map company-active-map |
|
|
|
("RET" . nil) |
|
|
|
([return] . nil) |
|
|
|
("TAB" . company-complete-selection) |
|
|
|
([tab] . company-complete-selection) |
|
|
|
("<right>" . company-complete-common)) |
|
|
|
:config |
|
|
|
(global-company-mode 1) |
|
|
|
(setq-default |
|
|
|
company-idle-delay .2 |
|
|
|
company-minimum-prefix-length 1 |
|
|
|
company-require-match nil |
|
|
|
company-show-numbers t |
|
|
|
company-tooltip-align-annotations t)) |
|
|
|
|
|
|
|
(require 'company-statistics) |
|
|
|
(use-package company-statistics |
|
|
|
:ensure t |
|
|
|
:after company |
|
|
|
:init |
|
|
|
(setq company-statistics-file (concat MY--PATH_USER_LOCAL "company-statistics-cache.el"));~/.emacs.d/user-dir/company-statistics-cache.el") |
|
|
|
:config |
|
|
|
(company-statistics-mode 1)) |
|
|
|
; (require 'company) |
|
|
|
(use-package company |
|
|
|
:defer 1 |
|
|
|
:bind |
|
|
|
(:map company-active-map |
|
|
|
("RET" . nil) |
|
|
|
([return] . nil) |
|
|
|
("TAB" . company-complete-selection) |
|
|
|
([tab] . company-complete-selection) |
|
|
|
("<right>" . company-complete-common)) |
|
|
|
:config |
|
|
|
(global-company-mode 1) |
|
|
|
(setq-default |
|
|
|
company-idle-delay .2 |
|
|
|
company-minimum-prefix-length 1 |
|
|
|
company-require-match nil |
|
|
|
company-show-numbers t |
|
|
|
company-tooltip-align-annotations t)) |
|
|
|
|
|
|
|
; (require 'company-statistics) |
|
|
|
(use-package company-statistics |
|
|
|
:ensure t |
|
|
|
:after company |
|
|
|
:init |
|
|
|
(setq company-statistics-file (concat MY--PATH_USER_LOCAL "company-statistics-cache.el"));~/.emacs.d/user-dir/company-statistics-cache.el") |
|
|
|
:config |
|
|
|
(company-statistics-mode 1)) |
|
|
|
|
|
|
|
(use-package company-dabbrev |
|
|
|
:ensure nil |
|
|
|
:after company |
|
|
|
:config |
|
|
|
(setq-default company-dabbrev-downcase nil)) |
|
|
|
(use-package company-dabbrev |
|
|
|
:ensure nil |
|
|
|
:after company |
|
|
|
:config |
|
|
|
(setq-default company-dabbrev-downcase nil)) |
|
|
|
|
|
|
|
(use-package company-box |
|
|
|
:ensure nil |
|
|
|
:init |
|
|
|
(add-hook 'company-mode-hook 'company-box-mode)) |
|
|
|
(use-package company-box |
|
|
|
:ensure t |
|
|
|
:init |
|
|
|
(add-hook 'company-mode-hook 'company-box-mode)) |
|
|
|
|
|
|
|
(defun company/org-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'(company-capf company-files)) |
|
|
|
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
|
|
(message "company/org-mode-hook")) |
|
|
|
(defun company/org-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'(company-capf company-files)) |
|
|
|
(add-hook 'completion-at-point-functions 'pcomplete-completions-at-point nil t) |
|
|
|
(message "company/org-mode-hook")) |
|
|
|
|
|
|
|
(defun company/elisp-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'((company-elisp company-dabbrev) company-capf company-files)) |
|
|
|
(message "company/elisp-mode-hook")) |
|
|
|
(defun company/elisp-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'((company-elisp company-dabbrev) company-capf company-files)) |
|
|
|
(message "company/elisp-mode-hook")) |
|
|
|
|
|
|
|
(defun company/beancount-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'(company-beancount))) |
|
|
|
(defun company/beancount-mode-hook() |
|
|
|
(set (make-local-variable 'company-backends) |
|
|
|
'(company-beancount))) |
|
|
|
|
|
|
|
(use-package magit |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:init |
|
|
|
; set git-path in work environment |
|
|
|
(if (string-equal user-login-name "POH") |
|
|
|
(setq magit-git-executable "P:/Eigene Dateien/Tools/Git/bin/git.exe") |
|
|
|
(use-package magit |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:init |
|
|
|
; set git-path in work environment |
|
|
|
(if (string-equal user-login-name "POH") |
|
|
|
(setq magit-git-executable "P:/Eigene Dateien/Tools/Git/bin/git.exe") |
|
|
|
) |
|
|
|
:bind (("C-x g" . magit-status)) |
|
|
|
) |
|
|
|
:bind (("C-x g" . magit-status)) |
|
|
|
) |
|
|
|
|
|
|
|
(use-package lsp-mode |
|
|
|
:defer t |
|
|
|
:commands lsp |
|
|
|
:custom |
|
|
|
(lsp-auto-guess-root nil) |
|
|
|
(lsp-prefer-flymake nil) ; use flycheck instead |
|
|
|
(lsp-file-watch-threshold 2000) |
|
|
|
:bind (:map lsp-mode-map ("C-c C-f" . lsp-format-buffer)) |
|
|
|
:hook ((python-mode |
|
|
|
js-mode |
|
|
|
js2-mode |
|
|
|
typescript-mode |
|
|
|
web-mode) . lsp)) |
|
|
|
|
|
|
|
(use-package lsp-ui |
|
|
|
:after lsp-mode |
|
|
|
:diminish |
|
|
|
:commands lsp-ui-mode |
|
|
|
:config |
|
|
|
(setq lsp-ui-doc-enable t |
|
|
|
lsp-ui-doc-header t |
|
|
|
lsp-ui-doc-include-signature t |
|
|
|
lsp-ui-doc-position 'top |
|
|
|
lsp-ui-doc-border (face-foreground 'default) |
|
|
|
lsp-ui-sideline-enable nil |
|
|
|
lsp-ui-sideline-ignore-duplicate t |
|
|
|
lsp-ui-sideline-show-code-actions nil) |
|
|
|
(when (display-graphic-p) |
|
|
|
(setq lsp-ui-doc-use-webkit t)) |
|
|
|
;; workaround hide mode-line of lsp-ui-imenu buffer |
|
|
|
(defadvice lsp-ui-imenu (after hide-lsp-ui-imenu-mode-line activate) |
|
|
|
(setq mode-line-format nil))) |
|
|
|
|
|
|
|
(use-package company-lsp |
|
|
|
:requires company |
|
|
|
:defer t |
|
|
|
:ensure t |
|
|
|
:config |
|
|
|
;;disable client-side cache because lsp server does a better job |
|
|
|
(setq company-transformers nil |
|
|
|
company-lsp-async t |
|
|
|
company-lsp-cache-candidates nil)) |
|
|
|
|
|
|
|
(use-package flycheck |
|
|
|
;;:ensure t |
|
|
|
:hook |
|
|
|
((css-mode . flycheck-mode) |
|
|
|
(emacs-lisp-mode . flycheck-mode) |
|
|
|
(python-mode . flycheck-mode)) |
|
|
|
:init |
|
|
|
(setq flycheck-emacs-lisp-load-path 'inherit) |
|
|
|
:config |
|
|
|
(setq-default |
|
|
|
flycheck-check-synta-automatically '(save mode-enabled) |
|
|
|
flycheck-disable-checkers '(emacs-lisp-checkdoc) |
|
|
|
eldoc-idle-delay .1 ;; let eldoc echo faster than flycheck |
|
|
|
flycheck-display-errors-delay .3)) ;; this way any errors will override eldoc messages |
|
|
|
|
|
|
|
(add-hook 'emacs-lisp-mode-hook 'company/elisp-mode-hook) |
|
|
|
|
|
|
|
(use-package web-mode |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:mode |
|
|
|
("\\.phtml\\'" |
|
|
|
"\\.tpl\\.php\\'" |
|
|
|
"\\.djhtml\\'" |
|
|
|
"\\.[t]?html?\\'")) |
|
|
|
|
|
|
|
(use-package pyvenv |
|
|
|
:ensure t |
|
|
|
:config |
|
|
|
(setenv "WORKON_HOME" (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/")) |
|
|
|
(add-hook 'pyvenv-post-activate-hooks #'my/postactivatehook)) |
|
|
|
|
|
|
|
(defun my/postactivatehook () |
|
|
|
(setq lsp-python-ms-extra-paths pyvenv-virtual-env)) |
|
|
|
|
|
|
|
(use-package virtualenvwrapper |
|
|
|
:ensure t |
|
|
|
:hook (venv-postmkvirtualenv . (lambda() (shell-command "pip3 install importmagic epc"))) |
|
|
|
:config |
|
|
|
(setq venv-location (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/"))) |
|
|
|
(use-package lsp-mode |
|
|
|
:defer t |
|
|
|
:commands lsp |
|
|
|
:custom |
|
|
|
(lsp-auto-guess-root nil) |
|
|
|
(lsp-prefer-flymake nil) ; use flycheck instead |
|
|
|
(lsp-file-watch-threshold 2000) |
|
|
|
:bind (:map lsp-mode-map ("C-c C-f" . lsp-format-buffer)) |
|
|
|
:hook ((python-mode |
|
|
|
js-mode |
|
|
|
js2-mode |
|
|
|
typescript-mode |
|
|
|
web-mode) . lsp)) |
|
|
|
|
|
|
|
(use-package lsp-ui |
|
|
|
:after lsp-mode |
|
|
|
:ensure t |
|
|
|
:diminish |
|
|
|
:commands lsp-ui-mode |
|
|
|
:config |
|
|
|
(setq lsp-ui-doc-enable t |
|
|
|
lsp-ui-doc-header t |
|
|
|
lsp-ui-doc-include-signature t |
|
|
|
lsp-ui-doc-position 'top |
|
|
|
lsp-ui-doc-border (face-foreground 'default) |
|
|
|
lsp-ui-sideline-enable nil |
|
|
|
lsp-ui-sideline-ignore-duplicate t |
|
|
|
lsp-ui-sideline-show-code-actions nil) |
|
|
|
(when (display-graphic-p) |
|
|
|
(setq lsp-ui-doc-use-webkit t)) |
|
|
|
;; workaround hide mode-line of lsp-ui-imenu buffer |
|
|
|
(defadvice lsp-ui-imenu (after hide-lsp-ui-imenu-mode-line activate) |
|
|
|
(setq mode-line-format nil))) |
|
|
|
|
|
|
|
(use-package company-lsp |
|
|
|
:requires company |
|
|
|
:defer t |
|
|
|
:ensure t |
|
|
|
:config |
|
|
|
;;disable client-side cache because lsp server does a better job |
|
|
|
(setq company-transformers nil |
|
|
|
company-lsp-async t |
|
|
|
company-lsp-cache-candidates nil)) |
|
|
|
|
|
|
|
(use-package lsp-python-ms |
|
|
|
:ensure t |
|
|
|
:after lsp-mode python) |
|
|
|
; :custom (lsp-python-executable-cmd "python3")) |
|
|
|
(use-package flycheck |
|
|
|
:ensure t |
|
|
|
:hook |
|
|
|
((css-mode . flycheck-mode) |
|
|
|
(emacs-lisp-mode . flycheck-mode) |
|
|
|
(python-mode . flycheck-mode)) |
|
|
|
:init |
|
|
|
(setq flycheck-emacs-lisp-load-path 'inherit) |
|
|
|
:config |
|
|
|
(setq-default |
|
|
|
flycheck-check-synta-automatically '(save mode-enabled) |
|
|
|
flycheck-disable-checkers '(emacs-lisp-checkdoc) |
|
|
|
eldoc-idle-delay .1 ;; let eldoc echo faster than flycheck |
|
|
|
flycheck-display-errors-delay .3)) ;; this way any errors will override eldoc messages |
|
|
|
|
|
|
|
(use-package beancount |
|
|
|
:load-path "user-local/elisp" |
|
|
|
(use-package projectile |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:mode |
|
|
|
("\\.beancount$" . beancount-mode) |
|
|
|
:bind |
|
|
|
(("C-c p p" . projectile-switch-project) |
|
|
|
("C-c p c" . projectile-command-map) |
|
|
|
("C-c p s s" . projectile-ag)) |
|
|
|
:init |
|
|
|
(add-hook 'beancount-mode-hook 'company/beancount-mode-hook) |
|
|
|
; (add-hook 'beancount-mode-hook (pyvenv-activate "/opt/beancount")) |
|
|
|
; (setenv "PATH" |
|
|
|
; (concat "/opt/beancount/bin:" |
|
|
|
; (getenv "PATH"))) |
|
|
|
(setq-default projectile-cache-file (concat MY--PATH_USER_LOCAL ".projectile-cache") |
|
|
|
projectile-known-projects-file (concat MY--PATH_USER_LOCAL ".projectile-bookmarks")) |
|
|
|
:config |
|
|
|
(setq beancount-filename-main "/home/marc/Archiv/Finanzen/Transaktionen/transactions.beancount")) |
|
|
|
(projectile-mode t) |
|
|
|
(setq-default projectile-completion-system 'ivy |
|
|
|
projectile-enable-caching t |
|
|
|
projectile-mode-line '(:eval (projectile-project-name)))) |
|
|
|
|
|
|
|
(use-package smartparens |
|
|
|
:ensure t |
|
|
|
:diminish smartparens-mode |
|
|
|
:config |
|
|
|
(setq sp-show-pair-from-inside nil) |
|
|
|
(require 'smartparens-config)) |
|
|
|
|
|
|
|
(add-hook 'emacs-lisp-mode-hook 'company/elisp-mode-hook) |
|
|
|
|
|
|
|
(use-package web-mode |
|
|
|
:ensure t |
|
|
|
:defer t |
|
|
|
:mode |
|
|
|
("\\.phtml\\'" |
|
|
|
"\\.tpl\\.php\\'" |
|
|
|
"\\.djhtml\\'" |
|
|
|
"\\.[t]?html?\\'") |
|
|
|
:config |
|
|
|
(setq web-mode-enable-auto-closing t |
|
|
|
web-mode-enable-auto-pairing t) |
|
|
|
(add-hook 'web-mode-hook 'smartparens-mode)) |
|
|
|
|
|
|
|
(if (string-equal system-type "gnu/linux") |
|
|
|
(use-package pyvenv |
|
|
|
:ensure t |
|
|
|
:config |
|
|
|
(setenv "WORKON_HOME" (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/")) |
|
|
|
(add-hook 'pyvenv-post-activate-hooks #'my/postactivatehook)) |
|
|
|
(defun my/postactivatehook () |
|
|
|
(setq lsp-python-ms-extra-paths pyvenv-virtual-env)) |
|
|
|
|
|
|
|
(use-package virtualenvwrapper |
|
|
|
:ensure t |
|
|
|
:hook (venv-postmkvirtualenv . (lambda() (shell-command "pip3 install importmagic epc"))) |
|
|
|
:config |
|
|
|
(setq venv-location (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/"))) |
|
|
|
|
|
|
|
(use-package lsp-python-ms |
|
|
|
:ensure t |
|
|
|
:after lsp-mode python)) |
|
|
|
; :custom (lsp-python-executable-cmd "python3")) |
|
|
|
|
|
|
|
(if (string-equal system-type "gnu/linux") |
|
|
|
(use-package beancount |
|
|
|
:load-path "user-local/elisp" |
|
|
|
; :ensure t |
|
|
|
:defer t |
|
|
|
:mode |
|
|
|
("\\.beancount$" . beancount-mode) |
|
|
|
:init |
|
|
|
(add-hook 'beancount-mode-hook 'company/beancount-mode-hook) |
|
|
|
; (add-hook 'beancount-mode-hook (pyvenv-activate "/opt/beancount")) |
|
|
|
; (setenv "PATH" |
|
|
|
; (concat "/opt/beancount/bin:" |
|
|
|
; (getenv "PATH"))) |
|
|
|
:config |
|
|
|
(setq beancount-filename-main "/home/marc/Archiv/Finanzen/Transaktionen/transactions.beancount"))) |
marc
5 years ago