diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/init.el | 637 |
1 files changed, 468 insertions, 169 deletions
diff --git a/emacs/init.el b/emacs/init.el index ffd53f6..0fe7bce 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -1,5 +1,5 @@ ;;; package --- init.el -;;; Comentary: +;;; Commentary: ;; A new init.el @@ -8,14 +8,20 @@ (with-eval-after-load 'package (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)) +;; Some testing libraries +(cond ((file-exists-p "/home/matias/.emacs.d/libs/") + (progn + (add-to-list 'load-path "/home/matias/.emacs.d/libs/") + (defun load-optional-libraries () + "Load testing/optional libraries defined on `peke-optional.el'" + (interactive) + (require 'peke-optional))))) + ;; Automatic reread from disk if the underlying file changes (setq auto-revert-interval 1) (setq auto-revert-check-vc-info t) (global-auto-revert-mode) -;; Move thourgh windows with Ctrl-<arrow keys> -(windmove-default-keybindings 'meta) - ;; Fix archaic defaults (setq sentence-end-double-space nil) @@ -23,10 +29,26 @@ (when (display-graphic-p) (context-menu-mode)) - ;; Tramp - Faster than default scp (setq tramp-default-method "ssh") +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; Utility functions +;;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defun append-to-list (listname elements) + "Append all `ELEMENTS' to `LISTNAME' + +Example + (append-to-list 'listname '(val1 val2)) +Is the same as + (add-to-list 'listname 'val1) + (add-to-list 'listname 'val2)" + (mapcar (lambda (elem) + (add-to-list listname elem)) + elements)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -55,14 +77,13 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Show the tab-bar as soon as tab-bar functions are invoked -(setq tab-bar-show 0) +(setq tab-bar-show 1) ;; Add the time to the tab-bar, if visible (add-to-list 'tab-bar-format 'tab-bar-format-align-right 'append) (add-to-list 'tab-bar-format 'tab-bar-format-global 'append) (setq display-time-format "%a %F %T") (setq display-time-interval 1) -(display-time-mode) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -72,26 +93,110 @@ (use-package emacs :config + (setq ring-bell-function 'ignore + use-package-compute-statistics t) (if (display-graphic-p) (progn - (load-theme 'modus-operandi) - (set-face-attribute 'default nil :font "Fantasque Sans Mono" :height 110) - (set-face-attribute 'fixed-pitch nil :font "Input Mono" :height 100) - (set-face-attribute 'variable-pitch nil :font "IBM Plex Sans" :height 110) - (setq modus-themes-operandi-color-overrides - '((bg-main . "#fefcf4")))) - (load-theme 'gruvbox-dark-hard))) + ;(set-face-attribute 'default nil :font "Roboto Mono" :height 100) + ; (set-face-attribute 'variable-pitch nil :font "ETBembo") + (custom-theme-set-faces + 'user + '(variable-pitch ((t (:family "ETBembo" :height 120)))) + '(fixed-pitch ((t (:family "Monospace" :height 100)))) + ;; This is for the modeline? + ; '(warning ((t :weight regular :foreground "OrangeRed1"))) + ) + ;; Colorscheme + (setq modus-themes-operandi-color-overrides + '((bg-main . "#fefcf4"))) + ;(load-theme 'spacemacs-dark t) + (setq-default cursor-type 'bar) + (blink-cursor-mode t) + (let ((bg (face-attribute 'mode-line :background))) + (set-face-attribute 'mode-line nil + :box (list :line-width 1 :color "gray60" :style nil) + :background bg)) + (load-theme 'leuven t)) + (load-theme 'modus-vivendi)) + (add-hook 'compilation-filter-hook 'ansi-color-compilation-filter) + ;; Treesitter config + ;; Tell Emacs to prefer the treesitter mode + ;; You'll want to run the command `M-x + ;; treesit-install-language-grammar' before editing. + (setq major-mode-remap-alist + '( + ;; (yaml-mode . yaml-ts-mode) + (bash-mode . bash-ts-mode) + (js2-mode . js-ts-mode) + (typescript-mode . typescript-ts-mode) + (json-mode . json-ts-mode) + (css-mode . css-ts-mode) + (python-mode . python-ts-mode) + (perl-mode . cperl-mode))) + :config + + ;; :hook + ;; Auto parenthesis matching + ;; ((prog-mode . electric-pair-mode)) + :hook + ((emacs-lisp-mode . enable-paredit-mode) + ;; (eval-expression-minibuffer-setup . enable-paredit-mode) + (ielm-mode . enable-paredit-mode) + (lisp-mode . enable-paredit-mode) + (lisp-interaction-mode . enable-paredit-mode) + (scheme-mode . enable-paredit-mode) + (slime-repl-mode . enable-paredit-mode) + (scheme-mode . rainbow-delimiters-mode))) + +(defun my-c-mode-common-hook () + ;; my customizations for all of c-mode, c++-mode, objc-mode, java-mode + (c-set-offset 'substatement-open 0) + ;; other customizations can go here + + (setq c++-tab-always-indent t) + (setq c-basic-offset 4) ;; Default is 2 + (setq c-indent-level 4) ;; Default is 2 + + (setq tab-stop-list '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60)) + (setq tab-width 4) + (setq indent-tabs-mode nil) ; use spaces only if nil + ) + +(add-hook 'c-mode-common-hook 'my-c-mode-common-hook) + +;; (use-package company-qml +;; :defer t +;; :config +;; (add-to-list 'company-backends 'company-qml)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Org ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Packages for org +(use-package olivetti + :ensure t) -(setq org-agenda-files (list "~/OrgRoam/agenda.org" - "/home/work/OrgRoam/20230808170239-code_reviews.org" - "/home/work/OrgRoam/20230808173230-tareas.org")) +(use-package org-journal + :ensure t + :defer t + :bind (("C-c j t" . my/find-journal-today)) + :init + (setq org-journal-prefix-key "C-c j ") + :config + (setq org-journal-dir "~/Documents/roam/journal/" + org-journal-date-format "%A, %d %B %Y" + ;; Find files of org journal in the agenda files + org-agenda-file-regexp "\\`\\\([^.].*\\.org\\\|[0-9]\\\{8\\\}\\\(\\.gpg\\\)?\\\)\\'" + org-journal-enable-agenda-integration t + org-journal-file-type 'weekly) + (add-to-list 'org-agenda-files org-journal-dir) + :preface + (defun my/find-journal-today () + (interactive) + (org-journal-new-entry t))) (use-package org :hook ((org-mode . visual-line-mode) ; wrap lines at word breaks @@ -103,6 +208,7 @@ ("C-c a" . org-agenda)) :config (require 'org-tempo) ; Abbrv support for code blocks + (require 'org-agenda) (add-to-list 'org-export-backends 'md) ;; Make org-open-at-point follow file links in the same window @@ -110,40 +216,72 @@ ;; Make exporting quotes better (setq org-export-with-smart-quotes t) - (setq org-confirm-babel-evaluate nil) ; Dont prompt for evaluation - ) + ;; Dont prompt for evaluation + (setq org-confirm-babel-evaluate nil) + ;; This variable hides bold, italics, etc. markers + (setq org-hide-emphasis-markers t) + + ;; This things are fixed instead of variable + (custom-theme-set-faces + 'user + '(org-block ((t (:inherit fixed-pitch)))) + '(org-code ((t (:inherit fixed-pitch)))) + '(org-document-info ((t (:foreground "dark orange")))) + '(org-document-info-keyword ((t (:inherit (shadow fixed-pitch))))) + '(org-indent ((t (:inherit (org-hide fixed-pitch))))) + '(org-link ((t (:foreground "royal blue" :underline t)))) + '(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch))))) + '(org-property-value ((t (:inherit fixed-pitch))) t) + '(org-special-keyword ((t (:inherit (font-lock-comment-face fixed-pitch))))) + '(org-table ((t (:inherit fixed-pitch)))) + '(org-tag ((t (:inherit (shadow fixed-pitch) :weight bold)))) + '(org-verbatim ((t (:inherit (shadow fixed-pitch)))))) + (org-babel-do-load-languages 'org-babel-load-languages '((shell . t) + (sql . t) + (sqlite . t) + (restclient . t) + (python . t) + (ruby . t)))) + (add-hook 'org-mode-hook (lambda () (auto-fill-mode) (variable-pitch-mode) (bug-reference-mode) - (olivetti-mode) - (olivetti-set-width 100))) + ;(olivetti-mode) + ;(olivetti-set-width 100) + )) (use-package org-roam :ensure t :defer t :init (setq org-roam-v2-ack t) :custom - (org-roam-directory "~/OrgRoam") + (org-roam-directory "~/Documents/roam") :bind (("C-c n l" . org-roam-buffer-toggle) ("C-c n f" . org-roam-node-find) ("C-c n i" . org-roam-node-insert)) :config ;; (org-roam-setup) ;; One shot? (org-roam-db-autosync-mode) - (setq org-roam-index-file "~/OrgRoam/index.org") + (setq org-roam-index-file "~/Documents/roam/index.org") (add-to-list 'display-buffer-alist '("\\*org-roam\\*" (display-buffer-in-side-window) (side . right) (window-width . 0.4) - (window-height . fit-window-to-buffer)))) - -(use-package org-jira - :config (setq jiralib-url "https://comprandoengrupo.atlassian.net")) + (window-height . fit-window-to-buffer))) + ;; Better python identation + (setq org-edit-src-content-indentation 0)) (use-package org-modern - :ensure t - :init (global-org-modern-mode)) + :defer t + :hook ((org-mode . org-modern-mode)) + :config + (setq org-tags-column 0 + org-auto-align-tags nil + org-catch-invisible-edits 'show-and-error + org-insert-heading-respect-content t + org-hide-emphasis-markers t + org-pretty-entities t)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -154,58 +292,50 @@ ;; Vertico: better vertical completion for minibuffer commands (use-package vertico :ensure t + :bind + (:map vertico-map + ("<tab>" . vertico-insert)) + :init ;; You'll want to make sure that e.g. fido-mode isn't enabled (vertico-mode)) +(use-package vertico-posframe + :ensure t + :hook (after-init . vertico-posframe-mode) + :custom + (vertico-posframe-parameters + '((left-fringe . 8) + (right-fringe . 8)))) + ;; Marginalia: annotations for minibuffer (use-package marginalia :ensure t :config (marginalia-mode)) -(use-package corfu - :ensure t - :custom - (corfu-cycle t) - :bind - (:map corfu-map - ("SPC" . corfu-insert-separator)) - :hook ((prog-mode . corfu-mode) - (shell-mode . corfu-mode) - (eshell-mode . corfu-mode)) - :init (global-corfu-mode)) - -;; Part of corfu -(use-package corfu-popupinfo - :after corfu - :hook (corfu-mode . corfu-popupinfo-mode) - :custom - (corfu-popupinfo-delay '(0.25 . 0.1)) - (corfu-popupinfo-hide nil) - :config - (corfu-popupinfo-mode)) - -;; Make corfu popup come up in terminal overlay -(use-package corfu-terminal - :if (not (display-graphic-p)) - :ensure t - :config - (corfu-terminal-mode)) +;; (use-package company +;; :ensure t +;; :hook ((prog-mode . company-mode) +;; (comint-mode . company-mode)) +;; :bind +;; (:map company-mode-map +;; ("C-;" . company-complete)) +;; :config +;; ;; Don't trigger completion automaticly +;; (setq company-idle-delay nil +;; company-global-modes '(prog-mode org-mode lisp-mode elisp-mode emacs-lisp-mode sly-repl-mode))) -;; Pretty icons for corfu -(use-package kind-icon - :if (display-graphic-p) - :ensure t - :after corfu - :config - (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter)) +(use-package corfu + :defer t + :hook (after-init . global-corfu-mode) + :bind (("C-;" . completion-at-point))) ;; Orderless: powerful completion style (use-package orderless :ensure t :config - (setq completion-styles '(orderless))) + (setq completion-styles '(orderless basic))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -213,59 +343,108 @@ ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Treesiter config +;; Define some aliases for eshell +(defun eshell/open (file) + (find-file file)) +;; Treesiter config (use-package emacs - :config - ;; Treesitter config - ;; Tell Emacs to prefer the treesitter mode - ;; You'll want to run the command `M-x treesit-install-language-grammar' before editing. - (setq major-mode-remap-alist - '(;(yaml-mode . yaml-ts-mode) - (bash-mode . bash-ts-mode) - (js2-mode . js-ts-mode) - (typescript-mode . typescript-ts-mode) - (json-mode . json-ts-mode) - (css-mode . css-ts-mode) - (python-mode . python-ts-mode))) - :hook - ;; Auto parenthesis matching - ((prog-mode . electric-pair-mode))) + ) ;; Eglot (use-package eglot - ;; no :ensure t here because it's built-in - - ;; Configure hooks to automatically turn-on eglot for selected modes - ; :hook - ; (((python-mode ruby-mode elixir-mode) . eglot)) - + :defer t :custom (eglot-send-changes-idle-time 0.1) - + (eglot-events-buffer-size 1000) + (eglot-report-progress nil) :config (fset #'jsonrpc--log-event #'ignore) ; massive perf boost---don't log every event ;; Sometimes you need to tell Eglot where to find the language server - ; (add-to-list 'eglot-server-programs - ; '(haskell-mode . ("haskell-language-server-wrapper" "--lsp"))) (add-to-list 'eglot-server-programs - '(python-ts-mode . ("pylsp" "--tcp" "--port" :autoport))) + '(qml-mode . ("qmlls6"))) + (add-to-list 'eglot-server-programs + '(c++-mode . ("clangd" "-log=error" "--clang-tidy" "--background-index" "--limit-results=500" + "--completion-style=bundled"))) ) + +;; Flymake +(use-package flymake + :defer t + :hook ((prog-mode . flymake-mode))) + ;; YAML (use-package yaml-mode :ensure t) +(use-package outline-indent + :defer t + :hook ((yaml-mode . outline-indent-minor-mode) + (yaml-ts-mode . outline-indent-minor-mode)) + :custom + (outline-indent-shift-width 2)) + +(use-package qml-mode + :defer t) + ;; JSON -(use-package json-mode :ensure t) -(add-hook 'js-json-mode-hook - (lambda () - (define-key js-json-mode-map (kbd "<f5>") 'json-pretty-print-buffer))) +(use-package json-mode + :ensure t + :bind + (("C-c j p" . json-pretty-print-buffer))) ;; Lisp -(use-package slime :defer t :ensure t) +;; (use-package sly :defer t :ensure t) +(use-package slime + :ensure t + :defer t) +(load (expand-file-name "~/quicklisp/slime-helper.el")) (setq inferior-lisp-program "sbcl") +;; (use-package slime-company +;; :ensure t +;; :after (slime company) +;; :config +(setq slime-company-completion 'fuzzy + slime-company-after-completion 'slime-company-just-one-space) +(slime-setup '(slime-fancy slime-company)) +;; (add-to-list 'load-path "/home/matias/Workspace/swank-chicken/") +;; (autoload 'chicken-slime "chicken-slime" "SWANK backend for Chicken" t) +;; (setq slime-csi-path "/home/matias/.local/bin/csi" +;; swank-chicken-port 4015) +;; (add-hook 'scheme-mode-hook (lambda () (slime-mode t))) + +;; Indenting module body code at column 0 +(defun scheme-module-indent (state indent-point normal-indent) 0) +(put 'module 'scheme-indent-function 'scheme-module-indent) + +(put 'and-let* 'scheme-indent-function 1) +(put 'parameterize 'scheme-indent-function 1) +(put 'handle-exceptions 'scheme-indent-function 1) +(put 'when 'scheme-indent-function 1) +(put 'unless 'scheme-indent-function 1) +(put 'match 'scheme-indent-function 1) + + +;; Scheme +;; (use-package geiser-chicken +;; :ensure t) + + +;; Racket +(use-package racket-mode + :defer t) + +(use-package rainbow-delimiters + :ensure t + :hook ((lisp-mode . rainbow-delimiters-mode))) + +;; Jenkinsfile +(use-package jenkinsfile-mode + :ensure t) +(setq-default indent-tabs-mode nil) + ;; Rest client (use-package restclient :defer t :ensure t) @@ -275,10 +454,18 @@ :bind (("s-g" . magit-status) ("C-c g" . magit-status))) +;; Forge +(use-package forge + :after magit + :ensure t) + ;; python-mode configuration +(setq python-indent-guess-indent-offset-verbose nil) + (use-package pyvenv :ensure t + :defer t :config ;; Set correct Python interpreter (setq pyvenv-post-activate-hooks @@ -297,13 +484,27 @@ "-v" '("--db" "Create db" "--create-db"))) -(add-hook 'python-ts-mode-hook - (lambda () - (define-key python-ts-mode-map (kbd "C-c p") 'python-pytest-dispatch) - (define-key python-ts-mode-map (kbd "C-c m p") 'ceg/pre-commit-run-current-file))) +;; Perl +(with-eval-after-load 'cperl + (setq cperl-indent-parens-as-block t + cperl-close-paren-offset (- cperl-indent-level))) ;; Load path from shell environment -(use-package exec-path-from-shell :ensure t :defer t) +;; (use-package exec-path-from-shell :ensure t :defer t) + +(add-to-list 'exec-path "/home/matias/.local/share/gem/ruby/3.0.0/bin") + +(use-package cmake-project + :defer t + :preface + (defun maybe-cmake-project-mode () + (when (or (file-exists-p "CMakeLists.txt") + (file-exists-p (expand-file-name "CMakeLists.txt" (projectile-project-root)))) + (cmake-project-mode))) + :hook + (c-mode . maybe-cmake-project-mode) + (c++-mode . maybe-cmake-project-mode)) + ;; sh-mode configuration (use-package flymake-shellcheck @@ -311,67 +512,144 @@ :init (add-hook 'sh-mode-hook 'flymake-shellcheck-load)) +(use-package nerd-icons + :defer t + :ensure t) + +(use-package doom-modeline + :ensure t + :hook (after-init . doom-modeline-mode) + :config + (set-face-attribute 'doom-modeline-warning nil :weight 'regular :foreground "OrangeRed2") + (set-face-attribute 'doom-modeline-urgent nil :weight 'regular) + (set-face-attribute 'doom-modeline-info nil :weight 'regular) + (set-face-attribute 'doom-modeline-buffer-file nil :weight 'regular) + (set-face-attribute 'doom-modeline-buffer-modified nil :weight 'semi-bold :foreground "black") + (set-face-attribute 'doom-modeline-buffer-major-mode nil :weight 'regular :italic t) + :custom + (doom-modeline-buffer-encoding nil) + (doom-modeline-minor-modes nil) + (doom-modeline-buffer-modification-icon t) + (doom-modeline-time nil) + (doom-modeline-vcs-max-length 35) + (doom-modeline-env-python-executable "python")) -;; Moodline -(use-package mood-line :ensure t) -(mood-line-mode) - -;; Fix for flycheck with eglot -;; https://gitlab.com/jessieh/mood-line/-/merge_requests/11 -(require 'cl-lib) - -(defun mood-line--checker-flymake-count-errors () - "Return alist with count of all current flymake diagnostic reports. - -Counts will be returned in an alist as the cdr of the following keys: -`'note-count' | All notes reported by checker -`'error-count' | All errors reported by checker -`'warning-count' | All warnings reported by checkero -`'issue-count' | All errors and warnings reported by checker -`'all-count' | Everything reported by checker" - (let ((error-count 0) - (warning-count 0) - (note-count 0)) - (progn - (cl-loop - with warning-level = (warning-numeric-level :warning) - with note-level = (warning-numeric-level :debug) - for state being the hash-values of flymake--state - do (cl-loop - with diags = (flymake--state-diags state) - for diag in diags do - (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity - (warning-numeric-level :error)))) - (cond ((> severity warning-level) (cl-incf error-count)) - ((> severity note-level) (cl-incf warning-count)) - (t (cl-incf note-count))))))) - `((note-count . ,note-count) - (error-count . ,error-count) - (warning-count . ,warning-count) - (issue-count . ,(+ warning-count - error-count)) - (all-count . ,(+ note-count - warning-count - error-count))))) +;; This will echo the diagnostics in the minibuffer +(setq lsp-diagnostics-provider :flymake) ;; IMenu everywhere (use-package imenu-anywhere :ensure t :bind (("C-." . imenu-anywhere))) +(defcustom ignore-directories '("venv" "__pycache__" "*.egg-info") + "Directories to be ignored by `projectile', `treemacs', etc." + :group 'peke + :type '(repeat string)) + +(defcustom ignore-files '() + "Files to be ignored by `projectile', `treemacs', etc." + :group 'peke + :type '(repeat string)) + ;; Projectile (use-package projectile - :init - (setq projectile-use-git-grep t)) -(projectile-mode +1) -(define-key projectile-mode-map (kbd "M-p") 'projectile-command-map) + :hook (after-init . projectile-mode) + :preface + (defun ignored-projectile-generic-command () + (cond + (projectile-fd-executable + (let ((exclude-flags (mapcar (lambda (dir) (format "-E %s" dir)) + ignore-directories))) + (format "%s . -0 --type f --color=never %s --strip-cwd-prefix" + projectile-fd-executable + (string-join exclude-flags " ")))) + (t projectile-generic-comand))) + :config + (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map) + :custom + (projectile-indexing-method 'hybrid) + (projectile-sort-order 'modification-time) + (projectile-use-git-grep t) + (projectile-generic-command (ignored-projectile-generic-command))) + +(use-package treemacs + :ensure t + :preface + (defun peke/treemacs-ignore-file-p (filename absolute-path) + ;; TODO: Terminar esto con los defcustom de mas arria + (string-equal "venv" filename)) + :bind + ("<f5>" . treemacs) + ("M-0" . treemacs-select-window) + :custom + (treemacs-is-never-other-window t) + (treemacs-space-between-root-nodes nil) + :config + (add-to-list 'treemacs-ignored-file-predicates #'peke/treemacs-ignore-file-p) + :hook + (treemacs-mode . treemacs-project-follow-mode)) +(use-package treemacs-projectile + :after (treemacs projectile) + :ensure t) -(use-package projectile-rails - :defer t :ensure t - :init (projectile-rails-global-mode)) -(define-key projectile-rails-mode-map (kbd "C-c r") - 'projectile-rails-command-map) +(use-package treemacs-icons-dired + :hook (dired-mode . treemacs-icons-dired-enable-once) + :ensure t) + +(use-package treemacs-magit + :after (treemacs magit) + :ensure t) + +(use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode + :after (treemacs persp-mode) ;;or perspective vs. persp-mode + :ensure t + :config (treemacs-set-scope-type 'Perspectives)) + +(use-package treemacs-all-the-icons + :ensure t + :after (treemacs) + :config (treemacs-load-all-the-icons-with-workaround-font "Hermit")) + + +;; (use-package treemacs-tab-bar ;;treemacs-tab-bar if you use tab-bar-mode +;; :after (treemacs) +;; :ensure t +;; :config (treemacs-set-scope-type 'Tabs)) + +(use-package all-the-icons + :ensure t + :if (display-graphic-p)) + +;; Window purpose +(use-package window-purpose + :ensure t + :defer t + :hook (after-init . purpose-mode) + :config + (add-to-list 'purpose-user-mode-purposes '(python-mode . py)) + (add-to-list 'purpose-user-mode-purposes '(inferior-python-mode . py-repl)) + (purpose-compile-user-configuration)) + +(use-package helpful + :ensure t + :defer t + :bind (:map global-map + ("C-h f" . #'helpful-callable) + ("C-h v" . #'helpful-variable) ; Mnemonic: link → insert + ("C-h k" . #'helpful-key) + ("C-h x" . #'helpful-command))) + +(use-package perspective + :defer t + :ensure t + :hook (after-init . persp-mode) + :bind + ("C-x C-b" . persp-list-buffers) ; or use a nicer switcher, see below + :custom + (persp-mode-prefix-key (kbd "C-c M-p")) ; pick your own prefix key here +) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -379,21 +657,15 @@ Counts will be returned in an alist as the cdr of the following keys: ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun ceg/pre-commit-run-current-file () - "Run pre-commit with the current file name" +(defun my/reload-dir-locals () (interactive) - (let ((full-command (concat "pre-commit run --file " buffer-file-name " | sed 's;^ceg/;;g'"))) - (compile full-command))) + (let ((enable-local-variables :all)) + (hack-dir-local-variables-non-file-buffer))) -(defun ceg/pre-commit-run () - "Run pre-commit with the current file name" +(defun my/find-emacs-init () + "`'find-file' to `emacs' init file." (interactive) - (let ((full-command (concat "pre-commit run | sed 's;^ceg/;;g'"))) - (compile full-command))) - -(add-hook 'python-mode (lambda () - (local-set-key ("C-c o") - 'ceg/pre-commit-run))) + (find-file "~/.emacs.d/init.el")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; @@ -402,25 +674,52 @@ Counts will be returned in an alist as the cdr of the following keys: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-key global-map (kbd "RET") 'newline-and-indent) -(global-set-key (kbd "C-x C-b") 'ibuffer) -(global-set-key (kbd "C-;") 'completion-at-point) +;(global-set-key (kbd "C-x C-b") 'ibuffer) +; (global-set-key (kbd "C-;") 'completion-at-point) (global-set-key (kbd "C-x g") 'magit-status) (global-set-key (kbd "M-z") 'zap-up-to-char) (global-set-key (kbd "C-.") #'imenu-anywhere) (global-set-key (kbd "M-o") 'other-window) +(global-set-key (kbd "C-c m i") 'my/find-emacs-init) + +(provide 'init) +;;; init.el ends here (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(custom-safe-themes - '("919fabfc5cb6165ce07b9d8668f78fe75fe8bd08566006bc87513c29b4f34ade" "3770d0ae70172461ee0a02edcff71b7d480dc54066e8960d8de9367d12171efb" default)) + '("cdad4e5bc718111deb1f1a2a35e9781e11724144a1eb2064732c337160946760" "cfb0bb44259cf576124b900613628f4b589df1c3860185d24fffde6666bc88cf" "7fd8b914e340283c189980cd1883dbdef67080ad1a3a9cc3df864ca53bdc89cf" "f3781be0be23cc71c89b317489e07a4ad3e885f84c0a618692b53bbd69e60843" "9bed3fb18c8d18acca50f3609efcaa8d1c72027802cec8d291d4577e3e48b825" "871b064b53235facde040f6bdfa28d03d9f4b966d8ce28fb1725313731a2bcc8" "d445c7b530713eac282ecdeea07a8fa59692c83045bf84dd112dd738c7bcad1d" "48ea73e4e893ae318e4b0e3dda47ba78e322779a2107fa1aa9a71380590c03c5" "3770d0ae70172461ee0a02edcff71b7d480dc54066e8960d8de9367d12171efb" "835d934a930142d408a50b27ed371ba3a9c5a30286297743b0d488e94b225c5f" "98ef36d4487bf5e816f89b1b1240d45755ec382c7029302f36ca6626faf44bbd" "7b8f5bbdc7c316ee62f271acf6bcd0e0b8a272fdffe908f8c920b0ba34871d98" "de8f2d8b64627535871495d6fe65b7d0070c4a1eb51550ce258cd240ff9394b0" "1781e8bccbd8869472c09b744899ff4174d23e4f7517b8a6c721100288311fa5" "e7820b899036ae7e966dcaaec29fd6b87aef253748b7de09e74fdc54407a7a02" "7e0dec7d9f3821acba56ab19083ed059a94753ed79ee89b0d8167b727ed6cb81" "bbb13492a15c3258f29c21d251da1e62f1abb8bbd492386a673dcfab474186af" "a5270d86fac30303c5910be7403467662d7601b821af2ff0c4eb181153ebfc0a" "ba323a013c25b355eb9a0550541573d535831c557674c8d59b9ac6aa720c21d3" default)) + '(eglot-events-buffer-size 0 nil nil "Customized with use-package eglot") + '(eldoc-echo-area-use-multiline-p nil) + '(package-selected-packages + '(ob-graphql graphql-mode standard-themes leuven-theme outline-indent corfu company-qml qml-mode cmake-project eldoc-overlay kanagawa-theme nano-theme theme-looper org-bullets spacemacs-theme perspective flycheck slime-company gruvbox-theme paredit slime acme-theme plan9-theme racket-mode rainbow-delimiters helpful frame-mode cmake-mode csv-mode ob-restclient daemons yaml-mode window-purpose vertico-posframe treemacs restclient pyvenv python-pytest projectile-rails org-roam org-modern org-journal orderless olivetti marginalia json-mode jenkinsfile-mode imenu-anywhere forge doom-modeline company all-the-icons)) '(safe-local-variable-values - '((python-pytest-executable . "pytest") - (python-shell-interpreter-args . "/home/work/Workspace/ceg-intranet/ceg/manage.py shell_plus --plain")))) + '((projectile-project-run-cmd . "./build/bin/kode-reviewer") + (projectile-project-run-cmd . "./build/bin/kodereviewer") + (projectile-project-compilation-cmd . "cmake -DCMAKE_BUILD_TYPE=Debug --build build -j8") + (projectile-project-compilation-cmd . "cmake --build build -j8") + (projectile-project-compilation-cmd . "ccmake --build build -j8") + (projectile-project-compilation-cmd . "cmake --build build -j8") + (projectile-project-compilation-cmd "cmake --build build -j8") + (projectile-project-run-cmd . "./build/bp")))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - ) + '(fixed-pitch ((t (:family "Monospace" :height 100)))) + '(org-block ((t (:inherit fixed-pitch)))) + '(org-code ((t (:inherit fixed-pitch)))) + '(org-document-info ((t (:foreground "dark orange")))) + '(org-document-info-keyword ((t (:inherit (shadow fixed-pitch))))) + '(org-indent ((t (:inherit (org-hide fixed-pitch))))) + '(org-link ((t (:foreground "royal blue" :underline t)))) + '(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch))))) + '(org-property-value ((t (:inherit fixed-pitch)))) + '(org-special-keyword ((t (:inherit (font-lock-comment-face fixed-pitch))))) + '(org-table ((t (:inherit fixed-pitch)))) + '(org-tag ((t (:inherit (shadow fixed-pitch) :weight bold)))) + '(org-verbatim ((t (:inherit (shadow fixed-pitch))))) + '(variable-pitch ((t (:family "ETBembo" :height 120))))) |