added files

6 files changed, 533 insertions, 0 deletions

diff --git a/.emacs.d/config.el b/.emacs.d/config.el
new file mode 100644
index 0000000..5e57a07
--- /dev/null
+++ b/.emacs.d/config.el
@@ -0,0 +1,74 @@
+(add-hook 'text-mode-hook 'display-line-numbers-mode)
+(add-hook 'prog-mode-hook 'display-line-numbers-mode)
+(add-hook 'emacs-startup-hook 'startup/revert-file-name-handler-alist)
+(add-hook 'emacs-startup-hook 'startup/reset-gc)
+
+(show-paren-mode 1)
+(tool-bar-mode -1)
+(menu-bar-mode -1)
+(scroll-bar-mode -1)
+(global-prettify-symbols-mode t)
+(electric-pair-mode t)
+(global-hl-line-mode t)
+(recentf-mode 1)
+(savehist-mode 1)
+(global-auto-revert-mode 1)
+
+(set-frame-parameter (selected-frame) 'alpha '(80 . 80))
+(add-to-list 'default-frame-alist '(alpha .(80 . 80)))
+
+(defvar startup/file-name-handler-alist file-name-handler-alist)
+
+(defalias 'open 'find-file-other-window)
+(defalias 'clean 'eshell/clear-scrollback)
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+;; Make emacs startup faster
+(setq gc-cons-threshold 402653184
+      gc-cons-percentage 0.6)
+
+(setq-default major-mode 'text-mode)
+
+(setq inhibit-startup-message t)
+(setq x-select-enable-clipboard t)
+(setq make-backup-files nil)
+(setq scroll-conservatively 100)
+(setq ring-bell-function 'ignore)
+(setq history-length 25)
+(setq global-auto-revert-non-file-buffers t)
+
+(setq-default tab-width 4)
+(setq-default standard-indent 4)
+(setq c-basic-offset tab-width)
+(setq-default electric-indent-inhibit t)
+(setq-default indent-tabs-mode t)
+(setq backward-delete-char-untabify-method 'nil)
+
+
+(setq electric-pair-pairs '(
+                            (?\{ . ?\})
+                            (?\( . ?\))
+                            (?\[ . ?\])
+                            (?\" . ?\")
+                            ))
+
+(setq use-package-always-defer t)
+
+(setq eshell-prompt-regexp "^[^αλ\n]*[αλ] ")
+(setq eshell-prompt-function
+      (lambda nil
+        (concat
+         (if (string= (eshell/pwd) (getenv "HOME"))
+             (propertize "~" 'face `(:foreground "#99CCFF"))
+           (replace-regexp-in-string
+            (getenv "HOME")
+            (propertize "~" 'face `(:foreground "#99CCFF"))
+            (propertize (eshell/pwd) 'face `(:foreground "#99CCFF"))))
+         (if (= (user-uid) 0)
+             (propertize " α " 'face `(:foreground "#FF6666"))
+         (propertize " λ " 'face `(:foreground "#A6E22E"))))))
+
+(setq eshell-highlight-prompt nil)
+(setq file-name-handler-alist nil)
+
+(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
diff --git a/.emacs.d/dracula-custom-theme.el b/.emacs.d/dracula-custom-theme.el
new file mode 100644
index 0000000..6f1d11b
--- /dev/null
+++ b/.emacs.d/dracula-custom-theme.el
@@ -0,0 +1,52 @@
+(deftheme dracula-custom
+  "Created 2022-11-27.")
+
+(custom-theme-set-faces
+ 'dracula-custom
+ '(default ((t (:family "Hack Nerd Font" :foundry "SRC" :width normal :height 113 :weight normal :slant normal :underline nil :overline nil :extend nil :strike-through nil :box nil :inverse-video nil :foreground "#F8F8F2" :background "#262626" :stipple nil :inherit nil))))
+ '(cursor ((t (:background "#ccccc7"))))
+ '(fixed-pitch ((t (:family "Monospace"))))
+ '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif"))))
+ '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
+ '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
+ '(minibuffer-prompt ((t (:weight bold :foreground "#ff79c6"))))
+ '(highlight ((t (:foreground "#ccccc7" :background "#464752"))))
+ '(region ((t (:extend t :inherit (match)))))
+ '(shadow ((t (:foreground "#6272a4"))))
+ '(secondary-selection ((((class color) (min-colors 88) (background light)) (:extend t :background "yellow1")) (((class color) (min-colors 88) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 16) (background light)) (:extend t :background "yellow")) (((class color) (min-colors 16) (background dark)) (:extend t :background "SkyBlue4")) (((class color) (min-colors 8)) (:extend t :foreground "black" :background "cyan")) (t (:inverse-video t))))
+ '(trailing-whitespace ((t (:background "#ffb86c"))))
+ '(font-lock-builtin-face ((t (:slant italic :foreground "#8be9fd"))))
+ '(font-lock-comment-delimiter-face ((t (:inherit (shadow)))))
+ '(font-lock-comment-face ((t (:inherit (shadow)))))
+ '(font-lock-constant-face ((t (:foreground "#bd93f9"))))
+ '(font-lock-doc-face ((t (:foreground "#6272a4"))))
+ '(font-lock-doc-markup-face ((t (:inherit (font-lock-constant-face)))))
+ '(font-lock-function-name-face ((t (:weight bold :foreground "#50fa7b"))))
+ '(font-lock-keyword-face ((t (:foreground "#ff79c6" :weight bold))))
+ '(font-lock-negation-char-face ((t (:foreground "#8be9fd"))))
+ '(font-lock-preprocessor-face ((t (:foreground "#ffb86c"))))
+ '(font-lock-regexp-grouping-backslash ((t (:foreground "#8be9fd"))))
+ '(font-lock-regexp-grouping-construct ((t (:foreground "#bd93f9"))))
+ '(font-lock-string-face ((t (:foreground "#f1fa8c"))))
+ '(font-lock-type-face ((t (:inherit (font-lock-builtin-face)))))
+ '(font-lock-variable-name-face ((t (:foreground "#d8a5f8" :weight bold))))
+ '(font-lock-warning-face ((t (:background "#373844" :inherit (warning)))))
+ '(button ((t (:inherit (link)))))
+ '(link ((t (:underline (:color foreground-color :style line) :foreground "#8be9fd"))))
+ '(link-visited ((default (:inherit (link))) (((class color) (background light)) (:foreground "magenta4")) (((class color) (background dark)) (:foreground "violet"))))
+ '(fringe ((t (:foreground "#b6b6b2" :background "#282a36"))))
+ '(header-line ((t (:inherit 'mode-line))))
+ '(tooltip ((t (:foreground "#f8f8f2" :background "#44475a"))))
+ '(mode-line ((t (:box (:line-width (1 . 1) :color "#44475a" :style nil) :inverse-video nil :foreground "#f8f8f2" :background "#44475a"))))
+ '(mode-line-buffer-id ((t (:weight bold))))
+ '(mode-line-emphasis ((t (:weight bold))))
+ '(mode-line-highlight ((((supports :box t) (class color) (min-colors 88)) (:box (:line-width (2 . 2) :color "grey40" :style released-button))) (t (:inherit (highlight)))))
+ '(mode-line-inactive ((t (:box (:line-width (1 . 1) :color "#373844" :style nil) :inverse-video nil :foreground "#b6b6b2" :background "#282a36"))))
+ '(isearch ((t (:weight bold :inherit (match)))))
+ '(isearch-fail ((t (:foreground "#282a36" :background "#ffb86c"))))
+ '(lazy-highlight ((t (:foreground "#e2e2dc" :background "#373844"))))
+ '(match ((t (:foreground "#282a36" :background "#f1fa8c"))))
+ '(next-error ((t (:inherit (region)))))
+ '(query-replace ((t (:inherit (isearch))))))
+
+(provide-theme 'dracula-custom)
diff --git a/.emacs.d/functions.el b/.emacs.d/functions.el
new file mode 100644
index 0000000..cc86002
--- /dev/null
+++ b/.emacs.d/functions.el
@@ -0,0 +1,49 @@
+(defun startup/revert-file-name-handler-alist ()
+  (setq file-name-handler-alist startup/file-name-handler-alist))
+ 
+(defun startup/reset-gc ()
+  (setq gc-cons-threshold 16777216
+    gc-cons-percentage 0.1))
+ 
+(defun split-and-follow-horizontally ()
+      (interactive)
+      (split-window-below)
+      (balance-windows)
+      (other-window 1))
+
+(defun split-and-follow-vertically ()
+      (interactive)
+      (split-window-right)
+      (balance-windows)
+      (other-window 1))
+
+(defun toggle-transparency()
+  (interactive)
+  (let ((alpha (frame-parameter nil 'alpha)))
+	(set-frame-parameter
+	 nil 'alpha
+	 (if (eql (cond ((numberp alpha) alpha)
+					((numberp (cdr alpha)) (cdr alpha))
+					;; Also handle undocumented (<active> <inactive>) form.
+					((numberp (cadr alpha)) (cadr alpha)))
+			  100)
+		 '(80 . 80) '(100 . 100)))))
+
+(defun eshell/sudo-open (filename)
+  "Open a file as root in Eshell."
+  (let ((qual-filename (if (string-match "^/" filename)
+                           filename
+                         (concat (expand-file-name (eshell/pwd)) "/" filename))))
+    (switch-to-buffer
+     (find-file-noselect
+      (concat "/sudo::" qual-filename)))))
+
+(defun eshell-other-window ()
+  "Create or visit an eshell buffer."
+  (interactive)
+  (if (not (get-buffer "*eshell*"))
+      (progn
+        (split-window-sensibly (selected-window))
+        (other-window 1)
+        (eshell))
+    (switch-to-buffer-other-window "*eshell*")))
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
new file mode 100644
index 0000000..6079b3d
--- /dev/null
+++ b/.emacs.d/init.el
@@ -0,0 +1,14 @@
+(load "~/.emacs.d/packages" nil t)
+(load "~/.emacs.d/functions" nil t)
+(load "~/.emacs.d/keybinds" nil t)
+(load "~/.emacs.d/config" nil t)
+
+(server-start)
+(set-default-file-modes #o700)
+
+;; Load Witchmacs theme
+(load-theme 'Witchmacs t)
+
+;; Move customization variables to a separate file and load it
+(setq custom-file (locate-user-emacs-file "custom-vars.el"))
+(load custom-file 'noerror 'nomessage)
diff --git a/.emacs.d/keybinds.el b/.emacs.d/keybinds.el
new file mode 100644
index 0000000..e0fa2ed
--- /dev/null
+++ b/.emacs.d/keybinds.el
@@ -0,0 +1,14 @@
+;; Control X
+(global-set-key (kbd "C-x 2") 'split-and-follow-horizontally)
+(global-set-key (kbd "C-x 3") 'split-and-follow-vertically)
+
+;; Super
+(global-set-key (kbd "s-C-<left>") 'shrink-window-horizontally)
+(global-set-key (kbd "s-C-<right>") 'enlarge-window-horizontally)
+(global-set-key (kbd "s-C-<down>") 'shrink-window)
+(global-set-key (kbd "s-C-<up>") 'enlarge-window)
+(global-set-key (kbd "<s-C-return>") 'eshell-other-window)
+
+;; Control C
+(global-set-key (kbd "C-c r") 'recentf-open-files)
+(global-set-key (kbd "C-c t") 'toggle-transparency)
diff --git a/.emacs.d/packages.el b/.emacs.d/packages.el
new file mode 100644
index 0000000..3e84067
--- /dev/null
+++ b/.emacs.d/packages.el
@@ -0,0 +1,330 @@
+;; Initialize melpa repo
+(require 'package)
+(setq package-enable-at-startup nil)
+(add-to-list 'package-archives
+        '("melpa" . "https://melpa.org/packages/"))
+(package-initialize)
+
+;; Initialize use-package
+(unless (package-installed-p 'use-package)
+  (package-refresh-contents)
+  (package-install 'use-package))
+(use-package org
+  :config
+  (add-hook 'org-mode-hook 'org-indent-mode)
+  (add-hook 'org-mode-hook
+            '(lambda ()
+               (visual-line-mode 1))))
+
+(use-package org-indent
+  :diminish org-indent-mode)
+
+(use-package htmlize
+  :ensure t)
+
+(use-package auto-package-update
+  :defer nil
+  :ensure t
+  :config
+  (setq auto-package-update-delete-old-versions t)
+  (setq auto-package-update-hide-results t)
+  (auto-package-update-maybe))
+
+(use-package diminish
+  :ensure t)
+
+(use-package spaceline
+  :ensure t)
+
+(use-package powerline
+      :ensure t
+      :init
+      (spaceline-spacemacs-theme)
+      :hook
+      ('after-init-hook) . 'powerline-reset)
+
+(use-package dashboard
+  :ensure t
+  :defer nil
+  :preface
+  (defun update-config ()
+    "Update Witchmacs to the latest version."
+    (interactive)
+    (let ((dir (expand-file-name user-emacs-directory)))
+      (if (file-exists-p dir)
+          (progn
+            (message "Witchmacs is updating!")
+            (cd dir)
+            (shell-command "git pull")
+            (message "Update finished. Switch to the messages buffer to see changes and then restart Emacs"))
+        (message "\"%s\" doesn't exist." dir))))
+
+  (defun create-scratch-buffer ()
+    "Create a scratch buffer"
+    (interactive)
+    (switch-to-buffer (get-buffer-create "*scratch*"))
+    (lisp-interaction-mode))
+  :config
+  (dashboard-setup-startup-hook)
+  (setq dashboard-items '((recents . 5)))
+  (setq dashboard-banner-logo-title "W I T C H M A C S - The cutest Emacs distribution!")
+  (setq dashboard-startup-banner "~/.emacs.d/marivector.png")
+  (setq dashboard-center-content t)
+  (setq dashboard-show-shortcuts nil)
+  (setq dashboard-set-init-info t)
+  (setq dashboard-init-info (format "%d packages loaded in %s"
+                                    (length package-activated-list) (emacs-init-time)))
+  (setq dashboard-set-footer nil)
+  (setq dashboard-set-navigator t)
+  (setq dashboard-navigator-buttons
+        `(;; line1
+          ((,nil
+            "Witchmacs on github"
+            "Open Witchmacs' github page on your browser"
+            (lambda (&rest _) (browse-url "https://github.com/snackon/witchmacs"))
+            'default)
+           (nil
+            "Witchmacs crash course"
+            "Open Witchmacs' introduction to Emacs"
+            (lambda (&rest _) (find-file "~/.emacs.d/Witcheat.org"))
+            'default)
+           (nil
+            "Update Witchmacs"
+            "Get the latest Witchmacs update. Check out the github commits for changes!"
+            (lambda (&rest _) (update-config))
+            'default)
+           )
+          ;; line 2
+          ((,nil
+            "Open scratch buffer"
+            "Switch to the scratch buffer"
+            (lambda (&rest _) (create-scratch-buffer))
+            'default)
+           (nil
+            "Open config.el"
+            "Open Witchmacs' configuration file for easy editing"
+            (lambda (&rest _) (find-file "~/.emacs.d/config.el"))
+            'default)
+		   (nil
+			"Open init.el"
+			"Open init file"
+			(lambda (&rest _) (find-file "~/.emacs.d/init.el"))
+			'default)))))
+
+
+;(insert (concat
+;         (propertize (format "%d packages loaded in %s"
+;                             (length package-activated-list) (emacs-init-time))
+;                     'face 'font-lock-comment-face)))
+;
+;(dashboard-center-line)
+
+(use-package which-key
+  :ensure t
+  :diminish which-key-mode
+  :init
+  (which-key-mode))
+
+(use-package swiper
+      :ensure t
+      :bind ("C-s" . 'swiper))
+
+(use-package evil
+  :ensure t
+  :defer nil
+  :init
+  (setq evil-want-keybinding nil)
+  (setq evil-want-C-u-scroll t)
+  :config
+  (evil-mode 1))
+
+;(use-package evil-collection
+;  :after evil
+;  :ensure t
+;  :config
+;  (evil-collection-init))
+
+(use-package beacon
+  :ensure t
+  :diminish beacon-mode
+  :init
+  (beacon-mode 1))
+
+(use-package avy
+      :ensure t
+      :bind
+      ("M-s" . avy-goto-char))
+
+(use-package switch-window
+      :ensure t
+      :config
+      (setq switch-window-input-style 'minibuffer)
+      (setq switch-window-increase 4)
+      (setq switch-window-threshold 2)
+      (setq switch-window-shortcut-style 'qwerty)
+      (setq switch-window-qwerty-shortcuts
+		'("a" "s" "d" "f" "j" "k" "l"))
+      :bind
+      ([remap other-window] . switch-window))
+
+(use-package ido
+  :init
+  (ido-mode 1)
+  :config
+  (setq ido-enable-flex-matching nil)
+  (setq ido-create-new-buffer 'always)
+  (setq ido-everywhere t))
+
+(use-package ido-vertical-mode
+  :ensure t
+  :init
+  (ido-vertical-mode 1))
+; This enables arrow keys to select while in ido mode. If you want to
+; instead use the default Emacs keybindings, change it to
+; "'C-n-and-C-p-only"
+(setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
+
+(use-package async
+      :ensure t
+      :init
+      (dired-async-mode 1))
+
+(use-package page-break-lines
+  :ensure t
+  :diminish (page-break-lines-mode visual-line-mode))
+
+(use-package undo-tree
+  :ensure t
+  :diminish undo-tree-mode)
+
+(use-package treemacs
+  :ensure t
+  :defer t
+  :init
+  (with-eval-after-load 'winum
+    (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
+  :config
+  (progn
+    (setq treemacs-collapse-dirs                 (if (executable-find "python3") 3 0)
+          treemacs-deferred-git-apply-delay      0.5
+          treemacs-display-in-side-window        t
+          treemacs-eldoc-display                 t
+          treemacs-file-event-delay              5000
+          treemacs-file-follow-delay             0.2
+          treemacs-follow-after-init             t
+          treemacs-git-command-pipe              ""
+          treemacs-goto-tag-strategy             'refetch-index
+          treemacs-indentation                   2
+          treemacs-indentation-string            " "
+          treemacs-is-never-other-window         nil
+          treemacs-max-git-entries               5000
+          treemacs-missing-project-action        'ask
+          treemacs-no-png-images                 nil
+          treemacs-no-delete-other-windows       t
+          treemacs-project-follow-cleanup        nil
+          treemacs-persist-file                  (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
+          treemacs-recenter-distance             0.1
+          treemacs-recenter-after-file-follow    nil
+          treemacs-recenter-after-tag-follow     nil
+          treemacs-recenter-after-project-jump   'always
+          treemacs-recenter-after-project-expand 'on-distance
+          treemacs-show-cursor                   nil
+          treemacs-show-hidden-files             t
+          treemacs-silent-filewatch              nil
+          treemacs-silent-refresh                nil
+          treemacs-sorting                       'alphabetic-desc
+          treemacs-space-between-root-nodes      t
+          treemacs-tag-follow-cleanup            t
+          treemacs-tag-follow-delay              1.5
+          treemacs-width                         30)
+    (treemacs-resize-icons 11)
+
+    (treemacs-follow-mode t)
+    (treemacs-filewatch-mode t)
+    (treemacs-fringe-indicator-mode t)
+    (pcase (cons (not (null (executable-find "git")))
+                 (not (null (executable-find "python3"))))
+      (`(t . t)
+       (treemacs-git-mode 'deferred))
+      (`(t . _)
+       (treemacs-git-mode 'simple))))
+  :bind
+  (:map global-map
+        ("M-0"       . treemacs-select-window)
+        ("C-x t 1"   . treemacs-delete-other-windows)
+        ("C-x t t"   . treemacs)
+        ("C-x t B"   . treemacs-bookmark)
+        ("C-x t C-t" . treemacs-find-file)
+        ("C-x t M-t" . treemacs-find-tag)))
+
+(use-package treemacs-evil
+  :after treemacs evil
+    :ensure t)
+
+  (use-package treemacs-icons-dired
+    :after treemacs dired
+    :ensure t
+    :config (treemacs-icons-dired-mode))
+
+(use-package magit
+  :ensure t)
+
+(use-package eldoc
+  :diminish eldoc-mode)
+
+(use-package abbrev
+  :diminish abbrev-mode)
+
+(use-package company
+  :ensure t
+  :diminish (meghanada-mode company-mode irony-mode)
+  :config
+  (setq company-idle-delay 0)
+  (setq company-minimum-prefix-length 3)
+  (define-key company-active-map (kbd "M-n") nil)
+  (define-key company-active-map (kbd "M-p") nil)
+  (define-key company-active-map (kbd "C-n") #'company-select-next)
+  (define-key company-active-map (kbd "C-p") #'company-select-previous)
+  (define-key company-active-map (kbd "SPC") #'company-abort)
+  :hook
+  ((java-mode c-mode c++-mode) . company-mode))
+
+(use-package yasnippet
+  :ensure t
+  :diminish yas-minor-mode
+  :hook
+  ((c-mode c++-mode) . yas-minor-mode)
+  :config
+  (yas-reload-all))
+
+(use-package yasnippet-snippets
+  :ensure t)
+
+(use-package company-c-headers
+  :defer nil
+  :ensure t)
+
+(use-package company-irony
+  :defer nil
+  :ensure t
+  :config
+  (setq company-backends '((company-c-headers
+                            company-dabbrev-code
+                            company-irony))))
+(use-package irony
+  :defer nil
+  :ensure t
+  :config
+  :hook
+  ((c++-mode c-mode) . irony-mode)
+  ('irony-mode-hook) . 'irony-cdb-autosetup-compile-options)
+
+(use-package meghanada
+  :ensure t
+  :defer nil
+  :config
+  (add-hook 'java-mode-hook
+            (lambda ()
+              (meghanada-mode t)))
+  (setq meghanada-java-path "java")
+  (setq meghanada-maven-path "mvn"))