From ffe3f500b7b7018e8b6298986ebe6fa5d5666580 Mon Sep 17 00:00:00 2001 From: Chizi123 <joelgrun@gmail.com> Date: Mon, 26 Nov 2018 00:50:26 +0000 Subject: [PATCH] fixing up ede-mode --- init.el | 192 ++++++++++++++++++++++++++++++++---------------- 1 files changed, 128 insertions(+), 64 deletions(-) diff --git a/init.el b/init.el index 5e768f7..2624cad 100644 --- a/init.el +++ b/init.el @@ -1,7 +1,7 @@ -(provide 'init) +(setq inhibit-startup-message t) ;; set paths for executable -;; use mingw64 for aspell, poppler (pdf-tools), gcc +;; use mingw64 for aspell, poppler (pdf-tools), gcc, ghostscript (add-to-list 'exec-path "C:/msys64/usr/bin") (add-to-list 'exec-path "C:/msys64/mingw64/bin") (add-to-list 'exec-path "c:/Program Files/Racket") @@ -27,9 +27,16 @@ (require 'setup-text) (require 'setup-local) +;; set default font +(set-default-font "DejaVu Sans Mono-10") + ;; setting up aspell (require 'ispell) (setq-default ispell-program-name "aspell") +(add-hook 'latex-mode-hook 'flyspell-mode) +(add-hook 'latex-mode-hook 'flyspell-buffer) +(add-hook 'org-mode-hook 'flyspell-mode) +(add-hook 'org-mode-hook 'flyspell-buffer) ;; Repos (require 'package) @@ -49,6 +56,7 @@ ;; auto-package-update (use-package auto-package-update + :ensure t :config (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) @@ -97,6 +105,29 @@ (setq auto-package-update-hide-results t) (auto-package-update-maybe)) +;; CEDET +(use-package cedet) + +(use-package semantic + :config + (global-semanticdb-minor-mode 1) + (global-semantic-idle-scheduler-mode 1) + (global-semantic-idle-summary-mode 1) + (semantic-mode 1)) + +(use-package ede + :config + (global-ede-mode t)) + + +(setq + ;; use gdb-many-windows by default + gdb-many-windows t + + ;; Non-nil means display source file containing the main routine at startup + gdb-show-main t + ) + ;; undo-tree (use-package undo-tree :ensure t @@ -137,7 +168,7 @@ (auto-package-update-maybe)) ;; workgroups2 -(use-package workgroups +(use-package workgroups2 :ensure t :config (workgroups-mode 1) @@ -171,10 +202,27 @@ :ensure t :init (global-company-mode) :config - (add-to-list 'company-backends 'company-c-headers) (add-hook 'c-mode-common-hook (lambda () (define-key c-mode-base-map [(tab)] 'company-complete))) + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) + +(use-package company-c-headers + :ensure t + :after company + :config + (add-to-list 'company-backends 'company-c-headers) + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) + +(use-package company-math + :ensure t + :after company + :config + (add-to-list 'company-backends 'company-math-symbols-unicode) (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe)) @@ -201,12 +249,9 @@ ;; magit config (use-package magit + :ensure t :commands magit-get-top-dir - :bind (("C-x g s" . magit-status) - ("C-x g f" . magit-file-log) - ("C-x g h" . magit-log) - ("C-x g c" . magit-branch) - ("C-x g t" . magit-tag)) + :bind ("C-x g" . magit-status) :init (progn ;; make magit status go full-screen but remember previous window @@ -226,14 +271,6 @@ (defadvice git-commit-abort (after delete-window activate) (delete-window)) - ;; these two force a new line to be inserted into a commit window, - ;; which stops the invalid style showing up. - ;; From: http://git.io/rPBE0Q - (defun magit-commit-mode-init () - (when (looking-at "\n") - (open-line 1))) - - (add-hook 'git-commit-mode-hook 'magit-commit-mode-init)) :config (progn ;; restore previously hidden windows @@ -243,40 +280,26 @@ ;; we only want to jump to register when the last seen buffer ;; was a magit-status buffer. (when (eq 'magit-status-mode current-mode) - (jump-to-register :magit-fullscreen)))) + (jump-to-register :magit-fullscreen))))) - (defun magit-maybe-commit (&optional show-options) - "Runs magit-commit unless prefix is passed" - (interactive "P") - (if show-options - (magit-key-mode-popup-committing) - (magit-commit))) - - (define-key magit-mode-map "c" 'magit-maybe-commit) - - ;; major mode for editing `git rebase -i` files - (use-package rebase-mode) - - ;; magit settings - (setq - ;; use ido to look for branches - magit-completing-read-function 'magit-ido-completing-read - ;; don't put "origin-" in front of new branch names by default - magit-default-tracking-name-function 'magit-default-tracking-name-branch-only - ;; open magit status in same window as current buffer - magit-status-buffer-switch-function 'switch-to-buffer - ;; highlight word/letter changes in hunk diffs - magit-diff-refine-hunk t - ;; ask me if I want to include a revision when rewriting - magit-rewrite-inclusive 'ask - ;; ask me to save buffers - magit-save-some-buffers t - ;; pop the process buffer if we're taking a while to complete - magit-process-popup-time 10 - ;; ask me if I want a tracking upstream - magit-set-upstream-on-push 'askifnotset - ) - (setq auto-package-update-delete-old-versions t) + ;; magit settings + (setq + ;; don't put "origin-" in front of new branch names by default + magit-default-tracking-name-function 'magit-default-tracking-name-branch-only + ;; open magit status in same window as current buffer + magit-status-buffer-switch-function 'switch-to-buffer + ;; highlight word/letter changes in hunk diffs + magit-diff-refine-hunk t + ;; ask me if I want to include a revision when rewriting + magit-rewrite-inclusive 'ask + ;; ask me to save buffers + magit-save-some-buffers t + ;; pop the process buffer if we're taking a while to complete + magit-process-popup-time 10 + ;; ask me if I want a tracking upstream + magit-set-upstream-on-push 'askifnotset + ) + (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe))) @@ -298,6 +321,15 @@ (setq auto-package-update-hide-results t) (auto-package-update-maybe)) +(use-package flycheck-clang-analyzer + :ensure t + :after flycheck + :config + (flycheck-clang-analyzer-setup) + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) + ;; nyan mode (use-package nyan-mode :if window-system @@ -308,20 +340,25 @@ ;; semantic refactor (use-package srefactor :ensure t + :bind (("M-RET o" . 'srefactor-lisp-one-line) + ("M-RET m" . 'srefactor-lisp-format-sexp) + ("M-RET d" . 'srefactor-lisp-format-defun) + ("M-RET b" . 'srefactor-lisp-format-buffer) + :map c-mode-base-map + ("M-RET" . 'srefactor-refactor-at-point) + :map c++-mode-map + ("M-RET" . 'srefactor-refactor-at-point)) :config - (semantic-mode 1) (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe)) -;; guide-key -(use-package guide-key +;; which-key +(use-package which-key :ensure t :config - (setq guide-key/guide-key-sequence '("C-x" "C-c" "M-g" "C-h")) - (setq guide-key/recursive-key-sequence-flag t) - (setq guide-key/popup-window-position 'bottom) - (guide-key-mode 1) + (which-key-mode) + (which-key-setup-side-window-bottom) (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe)) @@ -340,8 +377,8 @@ ;; org-bullets (use-package org-bullets :ensure t - :hook org-mode :config + (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))) (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe)) @@ -355,24 +392,51 @@ (setq auto-package-update-hide-results t) (auto-package-update-maybe)) +;; org (use-package org :ensure t :config + (setq org-src-tab-acts-natively t) (setq auto-package-update-delete-old-versions t) (setq auto-package-update-hide-results t) (auto-package-update-maybe)) +;; tex/AUCTex +(use-package tex + :ensure auctex + :config + (setq TeX-auto-save t) + (setq TeX-parse-self t) + (setq doc-view-ghostscript-program "c:/msys64/mingw64/bin/gswin32c.exe") + (setq preview-gs-command "c:/msys64/mingw64/bin/gs.exe") + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) + +;; latex-preview-pane +(use-package latex-preview-pane + :ensure t + :config + (latex-preview-pane-enable) + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) + +;; plantuml +(use-package plantuml-mode + :ensure t + :init + (setq plantuml-jar-path "c:/ProgramData/chocolatey/lib/plantuml/tools/plantuml.jar") + :config + (setq auto-package-update-delete-old-versions t) + (setq auto-package-update-hide-results t) + (auto-package-update-maybe)) (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 - (quote - ("ec5f697561eaf87b1d3b087dd28e61a2fc9860e4c862ea8e6b0b77bd4967d0ba" default))) - '(package-selected-packages - (quote - (zenburn-theme org flycheck-pos-tip flycheck rtags racket-mode geiser auto-package-update use-package pdf-tools org-bullets x86-lookup ztree yasnippet workgroups2 volatile-highlights undo-tree srefactor smartparens nyan-mode magit ibuffer-vc helm-projectile guide-key ggtags diff-hl company-c-headers clean-aindent-mode)))) + '(ede-project-directories (quote ("c:/Users/joelg/.emacs.d")))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. -- Gitblit v1.9.3