diff options
Diffstat (limited to 'Developer/emacs')
| -rw-r--r-- | Developer/emacs/init.el | 337 |
1 files changed, 0 insertions, 337 deletions
diff --git a/Developer/emacs/init.el b/Developer/emacs/init.el deleted file mode 100644 index 91fb8e4..0000000 --- a/Developer/emacs/init.el +++ /dev/null @@ -1,337 +0,0 @@ - - - (setq inhibit-startup-message t) - - (scroll-bar-mode -1) - (tool-bar-mode -1) - (tooltip-mode -1) - (set-fringe-mode 10) - - (menu-bar-mode -1) - - ;Visible bell - (setq visible-bell t) - - ;Fonts - (set-face-attribute 'default nil :font "JetBrains Mono" :height 130) - - - ;Make ESC quit prompts - (global-set-key (kbd "<escape>") 'keyboard-escape-quit) - ;Initialize packages sources - (require 'package) - -(setq package-archives '(("melpa" . "https://melpa.org/packages/") - ("org" . "https://orgmode.org/elpa/") - ("elpa" . "https://elpa.gnu.org/packages/"))) - - (package-initialize) - (unless package-archive-contents - (package-refresh-contents)) - - (unless (package-installed-p 'use-package) - (package-install 'use-package)) - - (require 'use-package) - (setq use-package-always-ensure t) - - (use-package command-log-mode) -(use-package counsel - :bind (("M-x" . counsel-M-x) - ("C-x b" . counsel-ibuffer) - ("C-x C-f" . counsel-find-file) - :map minibuffer-local-map - ("C-r" . 'counsel-minibuffer-history)) - :config - (setq ivy-initial-inputs-alist nil)) ;;No symbol at search - - (use-package ivy - :diminish - :bind (("C-s" . swiper) - :map ivy-minibuffer-map - ("TAB" . ivy-alt-done) - ("C-l" . ivy-alt-done) - ("C-j" . ivy-next-line) - ("C-k" . ivy-previous-line) - :map ivy-switch-buffer-map - ("C-k" . ivy-previous-line) - ("C-l" . ivy-done) - ("C-d" . ivy-switch-buffer-kill) - :map ivy-reverse-i-search-map - ("C-k" . ivy-previous-line) - ("C-d" . ivy-reverse-i-search-kill)) - :config - (ivy-mode 1)) - - -(use-package all-the-icons - :ensure t) - - -(use-package doom-modeline - :ensure t - :init (doom-modeline-mode 1) - :custom ((doom-modeline-height 35))) - -(global-set-key (kbd "C-x C-b") 'ibuffer) -(define-key (current-global-map) (kbd "C-c e") 'eval-buffer) - -;;themes -(use-package doom-themes) -(load-theme 'doom-dracula t) - -;;maggit -(use-package magit) - - -;;org -(defun org-insert-src-block (src-code-type) - "Insert a `SRC-CODE-TYPE' type source code block in org-mode." - (interactive - (let ((src-code-types - '("emacs-lisp" "python" "C" "sh" "java" "js" "clojure" "C++" "css" - "calc" "asymptote" "dot" "gnuplot" "ledger" "lilypond" "mscgen" - "octave" "oz" "plantuml" "R" "sass" "screen" "sql" "awk" "ditaa" - "haskell" "latex" "lisp" "matlab" "ocaml" "org" "perl" "ruby" - "scheme" "sqlite"))) - (list (ido-completing-read "Source code type: " src-code-types)))) - (progn - (newline-and-indent) - (insert (format "#+BEGIN_SRC %s\n" src-code-type)) - (newline-and-indent) - (insert "#+END_SRC\n") - (previous-line 2) - (org-edit-src-code))) - -;;lines -(column-number-mode) -(global-display-line-numbers-mode t) -(menu-bar--display-line-numbers-mode-relative) -;;Disable line numbers for some modes -(dolist (mode '(term-mode-hook - eshell-mode-hook - pdf-view-mode-hook)) - (add-hook mode (lambda () (display-line-numbers-mode 0)))) - -;;Rainbow -(use-package rainbow-delimiters - :hook (prog-mode . rainbow-delimiters-mode)) - -(use-package which-key - :init (which-key-mode) - :diminish which-key-mode - :config - (setq which-key-idle-delay 0)) - -(use-package ivy-rich - :init - (ivy-rich-mode 1)) - -;;helpfull -(use-package helpful - :custom - (counsel-describe-function-function #'helpful-callable) - (counsel-describe-variable-function #'helpful-variable) - :bind ; - ([remap describe-function] . counsel-describe-function) - ([remap describe-command] . helpful-command) - ([remap describe-variable] . counsel-describe-variable) - ([remap describe-key] . helpful-key)) - -(use-package general - :config - (general-create-definer apollo/leader-keys - :keymaps '(normal insert visual emacs) - :prefix "SPC" - :global-prefix "C-SPC") - - (apollo/leader-keys - "t" '(:ignore t :which-key "toggles") - "tt" '(counsel-load-theme :which-key "choose theme"))) - -(defun apollo/evil-hook () - (evil-set-initial-state 'pdf-view-mode 'emacs) - (add-hook 'pdf-view-mode-hook - (lambda () - (set (make-local-variable 'evil-emacs-state-cursor) (list nil))))) - -(use-package evil - :init - (setq evil-want-integration t) - (setq evil-want-keybinding nil) - (setq evil-want-C-u-scroll t) - (setq evil-want-C-i-jump nil) -;; :hook (evil-mode . apollo/evil-hook) - :config - (evil-mode 1) - (define-key evil-insert-state-map (kbd "C-f") 'evil-normal-state) - - (evil-global-set-key 'motion "j" 'evil-next-visual-line) - (evil-global-set-key 'motion "k" 'evil-previous-visual-line) - - (evil-set-initial-state 'messages-buffer-mode 'normal) - (evil-set-initial-state 'dashboard-mode 'normal)) - -(use-package evil-collection - :after evil - :config - (evil-collection-init)) - -(use-package hydra) - -(defhydra hydra-text-scale (:timeout 4) - "scale text" - ("j" text-scale-increase "in") - ("k" text-scale-decrease "out") - ("f" nil "finished" :exit t)) - -(apollo/leader-keys - "ts" '(hydra-text-scale/body :which-key "scale text")) - -(use-package pdf-tools - :config - (pdf-tools-install)) - - -(use-package projectile - :diminish projectile-mode - :config (projectile-mode) - :bind-keymap - ("C-c p" . projectile-command-map) - :custom ((projectile-completion-system 'ivy))) - -(use-package counsel-projectile - :config (counsel-projectile-mode)) - -(use-package magit - :custom - (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1)) - -(apollo/leader-keys - "g" '(:ignore t :which-key "Git") - "gs" '(magit-status :which-key "status")) - -(defun apollo/org-mode-setup () - (org-indent-mode) - (apollo/org-colors-dracula) - (setq evil-auto-indent nil)) - -(use-package org - :hook (org-mode . apollo/org-mode-setup) - :config - (setq org-directory "~/org/" - org-agenda-files '("~/org/agenda.org") - org-default-notes-file (expand-file-name "notes.org" org-directory) - org-ellipsis " ▼ " - org-superstar-headline-bullets-list '("◉" "●" "✶" "◆" "●" "○" "◆") - org-superstar-itembullet-alist '((?+ . ?➤) (?- . ?✦)) ; changes +/- symbols in item lists - org-log-done 'time - org-hide-emphasis-markers nil ;change to t to hide emphasis markers - ;; ex. of org-link-abbrev-alist in action - ;; [[arch-wiki:Name_of_Page][Description]] - org-link-abbrev-alist ; This overwrites the default Doom org-link-abbrev-list - '(("google" . "http://www.google.com/search?q=") - ("arch-wiki" . "https://wiki.archlinux.org/index.php/") - ("ddg" . "https://duckduckgo.com/?q=") - ("wiki" . "https://en.wikipedia.org/wiki/")) - org-table-convert-region-max-lines 20000 - org-todo-keywords ; This overwrites the default Doom org-todo-keywords - '((sequence - "TODO(t)" ; A task that is ready to be tackled - "BLOG(b)" ; Blog writing assignments - "GYM(g)" ; Things to accomplish at the gym - "IMPR(p)" ; Needs improvements - "WAIT(w)" ; Something is holding up this task - "|" ; The pipe necessary to separate "active" states and "inactive" states - "DONE(d)" ; Task has been completed - "CANCELLED(c)" )))) ; Task has been cancelled - -;; (use-package org-bullets -;; :after org -;; :hook (org-mode . org-bullets-mode) -;; :custom -;; (org-bullets-bullet-list '("●" "○" "●" "○" "●" "●" ))) - -(use-package org-superstar - :after org - :hook (org-mode . org-superstar-mode) - ) -;;org themes -(defun apollo/org-colors-primary () - "My custom org colors for doom themes" - (interactive) - (dolist - (face - '((org-level-1 1.70 "#51afef" ultra-bold) - (org-level-2 1.55 "#7FBCD2" extra-bold) - (org-level-3 1.40 "#da8548" bold) - (org-level-4 1.20 "#da8548" semi-bold) - (org-level-5 1.20 "#5699af" normal) - (org-level-6 1.20 "#a9a1e1" normal) - (org-level-7 1.10 "#46d9ff" normal) - (org-level-8 1.00 "#ff6c6b" normal))) - (set-face-attribute (nth 0 face) nil - :font "Jetbrains Mono" - :weight (nth 3 face) - :height (nth 1 face) - :foreground (nth 2 face))) - (set-face-attribute 'org-table nil - :font "Jetbrains Mono" - :weight 'normal - :height 1.0 - :foreground "#A66CFF")) - -(defun apollo/org-colors-monokai-pro () - "Enable Monokai Pro colors for Org headers." - (interactive) - (dolist - (face - '((org-level-1 1.7 "#78dce8" ultra-bold) - (org-level-2 1.6 "#ab9df2" extra-bold) - (org-level-3 1.5 "#a9dc76" bold) - (org-level-4 1.4 "#fc9867" semi-bold) - (org-level-5 1.3 "#ff6188" normal) - (org-level-6 1.2 "#ffd866" normal) - (org-level-7 1.1 "#78dce8" normal) - (org-level-8 1.0 "#ab9df2" normal))) - (set-face-attribute (nth 0 face) nil - :font "JetBrains Mono" - :weight (nth 3 face) - :height (nth 1 face) - :foreground (nth 2 face))) - (set-face-attribute 'org-table nil - :font "JetBrains Mono" - :weight 'normal - :height 1.0 - :foreground "#bfafdf")) - -(defun apollo/org-colors-dracula () - "Enable Dracula colors for Org headers." - (interactive) - (dolist - (face - '((org-level-1 1.7 "#8be9fd" ultra-bold) - (org-level-2 1.6 "#bd93f9" extra-bold) - (org-level-3 1.5 "#50fa7b" bold) - (org-level-4 1.4 "#ff79c6" semi-bold) - (org-level-5 1.3 "#9aedfe" normal) - (org-level-6 1.2 "#caa9fa" normal) - (org-level-7 1.1 "#5af78e" normal) - (org-level-8 1.0 "#ff92d0" normal))) - (set-face-attribute (nth 0 face) nil - :font "JetBrains Mono" - :weight (nth 3 face) - :height (nth 1 face) - :foreground (nth 2 face))) - (set-face-attribute 'org-table nil - :font "JetBrains Mono" - :weight 'normal - :height 1.0 - :foreground "#bfafdf")) - - -(defun apollo/read-book () - (interactive) - (blink-cursor-mode 0)) - - |