#+TITLE: Emacs configuration file #+AUTHOR: Marc #+BABEL: :cache yes #+PROPERTY: header-args :tangle yes * TODOS - Paket exec-path-from-shell, um PATH aus Linux auch in emacs zu haben - Smart mode line? - Theme - evil-collection or custom in init file? - Hydra - General - (defalias 'list-buffers 'ibuffer) ;; change default to ibuffer - ido? - treemacs (for linux) - treemacs-evil? - treemacs-projectile - ace-window - windmove? - tramp (in linux) - visual-regexp - org configuration: paths - org custom agenda - org configuration: everything else - beancount configuration from config.org - CONTINUE TODO from config.org at Programming * First start :PROPERTIES: :ID: ec248005-527f-4fa1-bdef-9343f2fa28b0 :END: When pulling the repository the first time, an initial init.el needs to be setup. After start it will replace itself with the configuration from init.org #+BEGIN_SRC emacs-lisp :tangle no (require 'org') (find-file (concat user-emacs-directory "init.org")) (org-babel-tangle) (load-file (concat user-emacs-directory "init.el")) (byte-compile-file (concat user-emacs-directory "init.el")) #+END_SRC This function updates init.el whenever changes in init.org are made. The update will be active after saving. #+BEGIN_SRC emacs-lisp (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) #+END_SRC #+BEGIN_SRC emacs-lisp (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) #+END_SRC #+BEGIN_SRC emacs-lisp (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) #+END_SRC * Default settings :PROPERTIES: :ID: 00b48602-2a95-492e-a90b-c1e3a94c1ecb :END: #+BEGIN_SRC emacs-lisp (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")))) #+END_SRC #+BEGIN_SRC emacs-lisp (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_START "p:/Eigene Dateien/Notizen/")))) (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 (setq abbrev-file-name (concat MY--PATH_USER_GLOBAL "abbrev_defs")) (setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory))) (setq save-abbrevs 'silently) ;; don't bother me with asking for abbrev saving (setq-default create-lockfiles nil) ;; disable lock files, can cause trouble in e.g. lsp-mode (defalias 'yes-or-no-p 'y-or-n-p) ;; answer with y and n (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-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) (setq uniquify-buffer-name-style 'forward) (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) (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 #+END_SRC Some windows specific stuff #+BEGIN_SRC emacs-lisp (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) (run-with-idle-timer 5 t #'garbage-collect)) (when (boundp 'w32-pipe-read-delay) (setq w32-pipe-read-delay 0)) (when (boundp 'w32-get-true-file-attributes) (setq )w32-get-true-file-attributes nil)) #+END_SRC * visuals ** Font :PROPERTIES: :ID: cdfaaf73-b027-4b86-8d27-ebdce4b85009 :END: #+BEGIN_SRC emacs-lisp (if (string-equal system-type "gnu/linux") (set-face-font 'default "Hack-10")) #+END_SRC ** line wrappings :PROPERTIES: :ID: 60b1f231-ab1e-4c47-ac6d-262dc208a520 :END: #+BEGIN_SRC emacs-lisp (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))) #+END_SRC ** line numbers :PROPERTIES: :ID: d3dfb79a-103a-4318-a5af-5a55e12674ce :END: #+BEGIN_SRC emacs-lisp (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) #+END_SRC ** misc :PROPERTIES: :ID: f0f774d6-db13-4871-9192-d36e78120dde :END: #+BEGIN_SRC emacs-lisp (use-package rainbow-mode :ensure t :diminish :hook ((org-mode emacs-lisp-mode) . rainbow-mode)) #+END_SRC * undo :PROPERTIES: :ID: fde526fa-b053-48dd-9ac1-c443d987f4d2 :END: #+BEGIN_SRC emacs-lisp (use-package undo-tree :ensure t :diminish undo-tree-mode :init (global-undo-tree-mode 1)) #+END_SRC * imenu-list :PROPERTIES: :ID: 796d00db-aadb-412b-a291-619b029977f3 :END: A minor mode to show imenu in a sidebar. Call imenu-list-smart-toggle. [[https://github.com/bmag/imenu-list][Source]] #+BEGIN_SRC emacs-lisp (use-package imenu-list :ensure t :config (setq imenu-list-focus-after-activation t imenu-list-auto-resize t imenu-list-position 'right) :bind (:map global-map ([f9] . imenu-list-smart-toggle)) ) #+END_SRC * which-key :PROPERTIES: :ID: 0a67aeb4-4060-4f4d-a7ff-61c70fe7ec7b :END: #+BEGIN_SRC emacs-lisp (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)) #+END_SRC * Evil :PROPERTIES: :ID: a3389b7d-3833-42b7-97e1-413b8c4d9833 :END: #+BEGIN_SRC emacs-lisp (use-package evil :ensure t :defer .1 ;; don't block emacs when starting, load evil immediately after startup :config (evil-mode 1)) #+END_SRC * General (key mapper) :PROPERTIES: :ID: 027bdcf8-95c9-4e9b-88ba-6e9d3e5116c0 :END: #+BEGIN_SRC emacs-lisp (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")) #+END_SRC * orgmode ** org :PROPERTIES: :ID: 3877251e-5ece-4006-baa6-1f1b4846a8f3 :END: #+BEGIN_SRC emacs-lisp (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 org-tempo ;; easy templates ))) (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)) #+END_SRC ** languages :PROPERTIES: :ID: 467efd58-e928-4ccf-9ac4-d144eaede8ed :END: #+BEGIN_SRC emacs-lisp (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) #+END_SRC ** habits :PROPERTIES: :ID: 61735b0c-5016-4697-80c6-beb7b3f27a1b :END: #+BEGIN_SRC emacs-lisp (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) #+END_SRC ** org-id :PROPERTIES: :ID: 017ef411-8239-4bfe-bbef-66b98a2971a9 :END: #+BEGIN_SRC emacs-lisp (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 #+END_SRC ** org-agenda :PROPERTIES: :ID: 10e65f59-ba2c-47e4-a40c-3097c15544aa :END: Custom keywords, depending on environment #+BEGIN_SRC emacs-lisp (pcase me/whoami ("work_remote") (setq org-todo-keywords '((sequence "OPEN" "TODO" "UNCLEAR" "|" "DONE" "IMPOSSIBLE")))) #+END_SRC Add some key bindings #+BEGIN_SRC emacs-lisp (bind-key "C-c l" 'org-store-link) (bind-key "C-c c" 'org-capture) (bind-key "C-c a" 'org-agenda) #+END_SRC Sort agenda by deadline and priority #+BEGIN_SRC emacs-lisp (setq org-agenda-sorting-strategy (quote ((agenda deadline-up priority-down) (todo priority-down category-keep) (tags priority-down category-keep) (search category-keep)))) #+END_SRC Customize the org agenda #+BEGIN_SRC emacs-lisp (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:"))))))) #+END_SRC ** *TODO* org-super-agenda ** org-caldav :PROPERTIES: :ID: 58aa11ef-80f7-4629-a957-a9e00e070136 :END: Vorerst deaktiviert, Nutzen evtl. nicht vorhanden #+BEGIN_SRC emacs-lisp ;;(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"))) #+END_SRC ** journal :PROPERTIES: :ID: 0b7243ac-049f-4b9c-a062-7a349c515133 :END: [[https://github.com/bastibe/org-journal][Source]] #+BEGIN_SRC emacs-lisp (unless (string-equal me/whoami "work-remote") (use-package org-journal :ensure t :defer t :config (setq org-journal-dir MY--PATH_ORG_JOURNAL org-journal-enable-agenda-integration t))) #+END_SRC * ivy / counsel / swiper :PROPERTIES: :ID: c2146a70-03f4-4f60-9bce-094eec28cefe :END: #+BEGIN_SRC emacs-lisp ; (require 'ivy) (use-package ivy :ensure t :diminish (ivy-mode . "") :init (ivy-mode 1) :bind ("C-r" . ivy-resume) ;; overrides isearch-backwards binding :config (setq ivy-use-virtual-buffers t ;; recent files and bookmarks in ivy-switch-buffer ivy-height 20 ;; height of ivy window ivy-count-format "%d/%d" ;; current and total number ivy-re-builders-alist ;; regex replaces spaces with * '((t . ivy--regex-plus)))) (use-package counsel :ensure t :bind* (("M-x" . counsel-M-x) ("C-x C-f" . counsel-find-file) ("C-x C-r" . counsel-recentf) ("C-c C-f" . counsel-git) ("C-c h f" . counsel-describe-function) ("C-c h v" . counsel-describe-variable) ("M-i" . counsel-imenu))) (use-package swiper :ensure t :bind ("C-s" . swiper)) (use-package ivy-hydra :ensure t) #+END_SRC * company :PROPERTIES: :ID: 1630ac5e-7467-458c-940c-4f724e283813 :END: #+BEGIN_SRC emacs-lisp ; (require 'company) (use-package company :defer 1 :bind (:map company-active-map ("RET" . nil) ([return] . nil) ("TAB" . company-complete-selection) ([tab] . company-complete-selection) ("" . 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-box :ensure t :init (add-hook 'company-mode-hook 'company-box-mode)) #+END_SRC ** company backends :PROPERTIES: :ID: 6ac59f9d-54e3-422d-883f-128fb172468d :END: #+BEGIN_SRC emacs-lisp (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/beancount-mode-hook() (set (make-local-variable 'company-backends) '(company-beancount))) #+END_SRC * Programming ** Magit / Git :PROPERTIES: :ID: a947f806-181d-4d33-9734-435849385b0b :END: Little crash course in magit: - magit-init to init a git project - magit-status (C-x g) to call the status window In status buffer: - s stage files - u unstage files - U unstage all files - a apply changes to staging - c c commit (type commit message, then C-c C-c to commit) - b b switch to another branch - P u git push - F u git pull #+BEGIN_SRC emacs-lisp (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)) ) #+END_SRC ** LSP :PROPERTIES: :ID: d529d096-ec38-42e6-91c9-099c1d8bdd06 :END: Configuration for the language server protocol *ACHTUNG* Dateipfad muss absolut sein, symlink im Pfad führt zumindest beim ersten Start zu Fehlern beim lsp Sobald der lsp einmal lief, kann zukünftig der symlink-Pfad genommen werden. Getestet wurde die funktionierende Datei selbst und neu erstellte Dateien im selben Pfad. TODO Unterverzeichnisse wurden noch nicht getestet #+BEGIN_SRC emacs-lisp (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)) #+END_SRC ** flycheck :PROPERTIES: :ID: c8090ddb-4f22-49ba-8ab1-1de132e1d772 :END: #+BEGIN_SRC emacs-lisp (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 #+END_SRC ** Projectile :PROPERTIES: :ID: 3cc5c1d2-1a5d-4d1a-bfeb-48de8172dd63 :END: Manage projects and jump quickly between its files #+BEGIN_SRC emacs-lisp (use-package projectile :ensure t :defer t :bind (("C-c p p" . projectile-switch-project) ("C-c p c" . projectile-command-map) ("C-c p s s" . projectile-ag)) :init (setq-default projectile-cache-file (concat MY--PATH_USER_LOCAL ".projectile-cache") projectile-known-projects-file (concat MY--PATH_USER_LOCAL ".projectile-bookmarks")) :config (projectile-mode t) (setq-default projectile-completion-system 'ivy projectile-enable-caching t projectile-mode-line '(:eval (projectile-project-name)))) #+END_SRC ** smartparens :PROPERTIES: :ID: 04be375f-d100-47e7-99f1-af47a3139a54 :END: #+BEGIN_SRC emacs-lisp (use-package smartparens :ensure t :diminish smartparens-mode :config (setq sp-show-pair-from-inside nil) (require 'smartparens-config)) #+END_SRC ** lisp :PROPERTIES: :ID: e5ce0263-3b21-460e-a037-3fe27d6e836a :END: #+BEGIN_SRC emacs-lisp (add-hook 'emacs-lisp-mode-hook 'company/elisp-mode-hook) #+END_SRC ** web :PROPERTIES: :ID: 5649b885-839f-48db-8b4f-8d594df7ebd8 :END: apt install npm sudo npm install -g vscode-html-languageserver-bin evtl alternativ typescript-language-server? #+BEGIN_SRC emacs-lisp (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)) #+END_SRC ** Python :PROPERTIES: :ID: cd4bbd1f-9980-42c9-a5af-aa808779d524 :END: Systemseitig muss python-language-server installiert sein: pip3 install 'python-language-server[all]' für andere language servers https://github.com/emacs-lsp/lsp-mode#install-language-server #+BEGIN_SRC emacs-lisp (if (string-equal system-type "gnu/linux") (defun my/postactivatehook () (setq lsp-python-ms-extra-paths pyvenv-virtual-env)) (use-package pyvenv :ensure t :config (setenv "WORKON_HOME" (expand-file-name "~/Archiv/Programmierprojekte/Python/virtualenv/")) (add-hook 'pyvenv-post-activate-hooks 'my/postactivatehook)) (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")) #+END_SRC * beancount ** Installation :PROPERTIES: :ID: 0c5f3396-4b08-4549-ac68-0c516cfd4435 :END: #+BEGIN_SRC shell sudo su cd /opt python3 -m venv beancount source ./beancount/bin/activate pip3 install wheel pip3 install beancount sleep 100 echo "shell running!" deactivate #+END_SRC #+BEGIN_SRC emacs-lisp (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"))) #+END_SRC To support org-babel, check if it can find the symlink to ob-beancount.el #+BEGIN_SRC shell orgpath=`find /home/marc/.emacs.d/elpa/ -type d -name "org-plus*" -print` beansym="$orgpath/ob-beancount.el bean="/home/marc/Archiv/Programmierprojekte/Lisp/beancount-mode/ob-beancount.el" if [ -h "$beansym" ] then echo "$beansym found" elif [ -e "$bean" ] then echo "creating symlink" ln -s "$bean" "$beansym" else echo "$bean not found, symlink creation aborted" fi #+END_SRC Fava is strongly recommended. #+BEGIN_SRC shell cd /opt python3 -m venv fava source ./fava/bin/activate pip3 install wheel pip3 install fava deactivate #+END_SRC Start fava with fava my_file.beancount It is accessable on this URL: [[http://127.0.0.1:5000][Fava]] Beancount-mode can start fava and open the URL right away.