initial ipad push

.dir-locals.el

@@ -0,0 +1 @@
+((nil . ((project-vc-merge-submodules . nil))))

.gitignore

@@ -0,0 +1,20 @@
+.DS_Store
+auto-save-list
+eln-cache
+elpa
+emacs-backup
+emojis/*
+!emojis/custom
+history
+projects
+recentf
+transient
+tree-sitter
+**/*.el
+!.dir-locals.el
+eshell
+request
+/.cache/
+/mastodon.plstore
+/persist/
+.cache

src/modules/built-in/eglot.org

@@ -0,0 +1,6 @@
+#+begin_src elisp
+  (use-package eglot
+    :config
+    (add-to-list 'eglot-server-programs
+  		 '(php-ts-mode . ("phpactor" "language-server"))))
+#+end_src

src/modules/built-in/emacs.org

@@ -0,0 +1,70 @@
+#+begin_src elisp
+(use-package emacs
+  :bind
+  (("C-c f f" . toggle-frame-fullscreen))
+  :config
+  ;; Disable tool-bar
+  (tool-bar-mode -1)
+  
+  ;; Enable horizontal mouse scroll
+  (setq mouse-wheel-tilt-scroll t)
+
+  ;; Enable electric indent mode
+  (electric-pair-mode t)
+  
+  ;; Switch meta command key
+  (setq mac-command-modifier 'meta)
+
+  ;; Enable which-key
+  (which-key-mode)
+
+  ;; Enable completion preview
+  ;;(global-completion-preview-mode)
+  
+  ;; Set font
+  (set-face-attribute 'default t :font "JetBrains Mono" :height 120)
+
+  ;; Fontify code blocks in markdown mode
+  ;;(setq markdown-fontify-code-blocks-natively t)
+
+  ;; Enable SPC option in minibuffer
+  ;;(define-key minibuffer-local-completion-map (kbd "SPC") 'self-insert-command)
+
+  ;; Enable SPC option in minibuffer
+  ;;(define-key minibuffer-local-completion-map (kbd "SPC") 'self-insert-command)
+  ;; Enable fido mode
+  ;;(setq fido-mode t)
+  ;;(fido-vertical-mode)
+  
+  ;;(defun my-icomplete-styles ()
+  ;;  (setq-local completion-styles '(orderless)))
+  ;;(add-hook 'icomplete-minibuffer-setup-hook 'my-icomplete-styles)
+
+    
+  
+  ;; Disable native comp warnings
+  (setq native-comp-async-report-warnings-errors 'silent)
+
+  ;; Save history of minibuffer
+  (savehist-mode)
+  
+  ;; Set cursor type
+  (setq-default cursor-type 'bar)
+
+  ;; Automatically reread from disk if the underlying file changes
+  (setq auto-revert-interval 1)
+  (setq auto-revert-check-vc-info t)
+  (global-auto-revert-mode)
+
+  ;; Don't litter file system with *~ backup files; put them all inside
+  (defun my--backup-file-name (fpath)
+    "Return a new file path of a given file path. If the new path's directories does not exist, create them."
+    (let* ((backupRootDir "~/.config/emacs/emacs-backup/")
+    	   (filePath (replace-regexp-in-string "[A-Za-z]:" "" fpath )) ; remove Windows driver letter in path
+    	   (backupFilePath (replace-regexp-in-string "//" "/" (concat backupRootDir filePath "~") )))
+      (make-directory (file-name-directory backupFilePath) (file-name-directory backupFilePath))
+      backupFilePath))
+  (setq make-backup-file-name-function 'my--backup-file-name)
+
+  )
+#+end_src

src/modules/built-in/hyperbole.org

@@ -0,0 +1,9 @@
+#+begin_src elisp
+(use-package hyperbole
+  :ensure t
+  :defer t
+  :disabled
+  :config
+  (hyperbole-mode 1))
+
+#+end_src

src/modules/built-in/org.org

@@ -0,0 +1,50 @@
+#+begin_src elisp
+  (use-package org-contrib
+    :ensure t)
+#+end_src
+
+#+begin_src elisp
+  (use-package ob-php
+    :ensure t)
+#+end_src
+
+#+begin_src elisp
+(use-package ob-shell)
+#+end_src
+
+#+begin_src elisp
+(use-package org
+  :config
+
+  (require 'org-tempo)
+  (setq org-src-preserve-indentation nil
+	org-edit-src-content-indentation 0)
+  
+  ;; active Babel languages
+  (org-babel-do-load-languages
+   'org-babel-load-languages
+   '((php . t)
+     (scheme . t)
+     (sql . t)
+     (shell .t)))
+     ;;(verb . t)))
+
+  (add-to-list 'org-src-lang-modes '("php" . php-ts))
+  
+  (setq org-src-fontify-natively t
+	;;org-src-tab-acts-natively t
+	org-confirm-babel-evaluate nil
+	;;org-edit-src-content-indentation 0
+	)
+  (setq org-agenda-files (directory-files-recursively "/Users/cnelson/.org" "\\.org$"))
+  (eval-after-load "org"
+    '(require 'ox-md nil t))
+  )
+
+#+end_src
+
+#+begin_src elisp
+(use-package htmlize
+  :ensure t)
+
+#+end_src

src/modules/built-in/tree-sitter.org

@@ -0,0 +1,8 @@
+#+BEGIN_SRC elisp
+  (use-package treesit
+    :config
+    (setq treesit-language-source-alist
+          '(;;(php "https://github.com/tree-sitter/tree-sitter-php" "master" "php/src")
+  	  ;;(dockerfile "https://github.com/camdencheek/tree-sitter-dockerfile" "main" "src")
+  	  (yaml "https://github.com/ikatyang/tree-sitter-yaml" "master" "src"))))
+#+END_SRC

src/modules/completion/company.org

@@ -0,0 +1,6 @@
+#+begin_src elisp
+(use-package company
+  :ensure t
+  :config
+  (add-hook 'after-init-hook 'global-company-mode))
+#+end_src

src/modules/completion/orderless.org

@@ -0,0 +1,8 @@
+#+begin_src elisp
+  (use-package orderless
+    :ensure t
+    :custom
+    (completion-styles '(orderless basic))
+    (completion-category-defaults nil)
+    (completion-category-overrides '((file (styles partial-completion)))))
+#+end_src

src/modules/completion/vertico.org

@@ -0,0 +1,24 @@
+#+begin_src elisp
+(use-package vertico
+  :ensure t
+  :init
+  (vertico-mode)
+  (vertico-mouse-mode))
+#+end_src
+
+#+begin_src elisp
+(use-package mini-popup
+  :vc (:url "https://github.com/minad/mini-popup"
+       :branch "main")
+  :disabled
+  :config
+  (mini-popup-mode))
+#+end_src
+
+#+begin_src elisp
+(use-package vertico-posframe
+  :vc (:url "https://github.com/tumashu/vertico-posframe"
+       :branch "main")
+  :config
+  (vertico-posframe-mode 1))
+#+end_src

src/modules/interface/all-the-icons.org

@@ -0,0 +1,4 @@
+#+begin_src elisp
+(use-package all-the-icons
+  :ensure t)
+#+end_src

src/modules/interface/dashboard.org

@@ -0,0 +1,55 @@
+#+begin_src elisp
+(use-package dashboard
+  :ensure t
+  :after nerd-icons
+  :config
+  (dashboard-setup-startup-hook)
+
+  (setq dashboard-startupify-list '(dashboard-insert-banner
+                                  dashboard-insert-newline
+                                  dashboard-insert-banner-title
+                                  dashboard-insert-newline
+                                  dashboard-insert-navigator
+                                  dashboard-insert-newline
+                                  dashboard-insert-init-info
+                                  dashboard-insert-items
+                                  dashboard-insert-newline
+                                  dashboard-insert-footer))
+  (setq dashboard-startup-banner '("~/.config/emacs/dashboard-logo/Powerline.png" "~/.config/emacs/dashboard-logo/Guru.png" "~/.config/emacs/dashboard-logo/Manray.png" "~/.config/emacs/dashboard-logo/dbpee.gif" "~/.config/emacs/dashboard-logo/MSG.png" "~/.config/emacs/dashboard-logo/gandalf.gif"))
+  (setq dashboard-banner-logo-title "Wumbology. The study of Wumbo.")
+  (setq dashboard-center-content t)
+  (setq dashboard-items '((recents   . 5)
+                          (projects  . 5)
+			  (bookmarks . 5)
+                          (agenda    . 5)))
+  (setq dashboard-display-icons-p t)    
+  (setq dashboard-icon-type 'nerd-icons)
+  (setq dashboard-set-heading-icons t)
+  (setq dashboard-set-file-icons t)
+  (dashboard-modify-heading-icons '((recents   . "nf-oct-file")
+                                    (bookmarks . "nf-oct-book")
+				    (projects . "nf-oct-project")
+				    (agenda . "nf-oct-calendar")))
+  (setq dashboard-navigator-buttons
+      `(;; line1
+	(("WORK" "" "" nil "" "" ""))
+        ((,(nerd-icons-mdicon "nf-md-bitbucket" :height 1.1 :v-adjust 0.0)
+          "Bitbucket"
+          "Browse Work Bitbucket"
+          (lambda (&rest _) (browse-url "https://bitbucket.org/c308/workspace/overview/")))
+	 (,(nerd-icons-mdicon "nf-md-jira" :height 1.1 :v-adjust 0.0)
+          "Jira"
+          "Browse Work Jira"
+          (lambda (&rest _) (browse-url "https://c308.atlassian.net/jira/your-work"))))
+	(("" "" "" () "" "" ""))
+	;; line 2
+	(("PERSONAL" "" "" nil "" "" ""))
+        ((,(nerd-icons-flicon "nf-linux-forgejo" :height 1.1 :v-adjust 0.0)
+          "Git"
+          "Browse Personal Forgejo"
+          (lambda (&rest _) (browse-url "https://forge.superkamiguru.org")))
+	 (,(nerd-icons-octicon "nf-oct-person_fill" :height 1.1 :v-adjust 0.0)
+          "Site"
+          "Browse Personal Website"
+          (lambda (&rest _) (browse-url "https://superkamiguru.org")))))))
+#+end_src

src/modules/interface/dired-sidebar.org

@@ -0,0 +1,8 @@
+#+begin_src elisp
+(use-package dired-sidebar
+  :ensure t
+  :disabled
+  :commands (dired-sidebar-toggle-sidebar)
+  :config
+  (setq dired-sidebar-theme 'nerd-icons))
+#+end_src

src/modules/interface/doom-modeline.org

@@ -0,0 +1,6 @@
+#+BEGIN_SRC elisp
+(use-package doom-modeline
+  :ensure t
+  :after poke-line
+  :init (doom-modeline-mode 1))
+#+END_SRC

src/modules/interface/doom-themes.org

@@ -0,0 +1,17 @@
+#+begin_src elisp
+(use-package doom-themes
+  :ensure t
+  :config
+  ;; Global settings (defaults)
+  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
+        doom-themes-enable-italic t) ; if nil, italics is universally disabled
+  (load-theme 'doom-one t)
+
+  (setq doom-themes-treemacs-theme "doom-atom") ; use "doom-colors" for less minimal icon theme
+  (doom-themes-treemacs-config)
+  
+  ;; Enable flashing mode-line on errors
+  (doom-themes-visual-bell-config)
+  ;; Corrects (and improves) org-mode's native fontification.
+  (doom-themes-org-config))
+#+end_src

src/modules/interface/emojify.org

@@ -0,0 +1,19 @@
+#+BEGIN_SRC elisp
+(use-package emojify
+  :ensure t
+  :hook (after-init . global-emojify-mode)
+  :config
+  (setq emojify-user-emojis '((":solaire:" . (("name" . "Solaire")
+					     ("image" . "~/.config/emacs/emojis/custom/solaire.png")
+					     ("style" . "github")))
+			      (":estus:" . (("name" . "Estus")
+					     ("image" . "~/.config/emacs/emojis/custom/estus.png")
+					     ("style" . "github")))
+			      (":guix:" . (("name" . "Guix")
+					   ("image" . "~/.config/emacs/emojis/custom/guix.png")
+					   ("style" . "github")))))
+  (when (featurep 'emojify)
+    (emojify-set-emoji-data)))
+#+END_SRC
+
+

src/modules/interface/nerd-icons.org

@@ -0,0 +1,5 @@
+#+begin_src elisp
+(use-package nerd-icons
+  :ensure t)
+
+#+end_src

src/modules/interface/powerline.org

@@ -0,0 +1,56 @@
+#+begin_src elisp
+(use-package powerline
+  :ensure t
+  ;;:disabled
+  :after tab-line
+  :config
+  ;;(global-tab-line-mode t)
+  (defvar my/tab-height 22)
+  (defvar my/tab-left (powerline-wave-right 'tab-line nil my/tab-height))
+  (defvar my/tab-right (powerline-wave-left nil 'tab-line my/tab-height))
+
+  (defun my/tab-line-tab-name-buffer (buffer &optional _buffers)
+    (powerline-render (list my/tab-left
+                            (format "%s" (buffer-name buffer))
+;;                            my/tab-right
+			    )))
+  
+  
+  (setq tab-line-tab-name-function  #'my/tab-line-tab-name-buffer)
+  (setq tab-line-close-button (powerline-render
+			       (list #(" ")
+				#(" x" 0 2
+				      (display
+				       (image :type xpm :file "tabs/close.xpm" :margin
+					      (2 . 0)
+					      :ascent center)
+				       keymap
+				       (keymap
+					(tab-line keymap
+						  (mouse-2 . tab-line-close-tab)
+						  (mouse-1 . tab-line-close-tab)))
+				       mouse-face tab-line-close-highlight help-echo "Click to close tab"))
+				    
+				     my/tab-right
+				     )))
+  (setq tab-line-new-button-show nil)  ;; do not show add-new button
+  ;;(setq tab-line-close-button-show nil)  ;; do not show close button
+
+  (setq tab-line-separator "")  ;; set it to empty
+  ;; tab color settings
+  ;; (set-face-attribute 'tab-line nil ;; background behind tabs
+  ;;       :background "gray40"
+  ;;       :foreground "gray60" :distant-foreground "gray50"
+  ;; :height 1.0 :box nil)
+  (set-face-attribute 'tab-line-tab nil ;; active tab in another window
+		      :inherit 'tab-line
+		      :foreground "gray70" :background "gray90" :box nil)
+  (set-face-attribute 'tab-line-tab-current nil ;; active tab in current window
+		      :background "gray40" :foreground "white" :box nil)
+
+  (set-face-attribute 'tab-line-tab-inactive nil ;; inactive tab
+		      :background "gray60" :foreground "black" :box nil)
+  (set-face-attribute 'tab-line-highlight nil ;; mouseover
+		      :background "white" :foreground 'unspecified)
+  )
+#+end_src

src/modules/interface/treemacs.org

@@ -0,0 +1,10 @@
+#+begin_src elisp
+(use-package treemacs
+  :ensure t
+  :hook
+  (dashboard-after-initialize-hook . treemacs)
+  :config
+  (treemacs-project-follow-mode)
+  (setq treemacs-project-follow-into-home t))
+
+#+end_src

src/modules/interface/ultra-scroll.org

@@ -0,0 +1,11 @@
+#+BEGIN_SRC elisp
+(use-package ultra-scroll
+  :vc
+  (:url "https://github.com/jdtsmith/ultra-scroll"
+   :rev :newest)
+  :init
+  (setq scroll-conservatively 101 ; important!
+        scroll-margin 0) 
+  :config
+  (ultra-scroll-mode 1))
+#+END_SRC

src/modules/languages/guile.org

@@ -0,0 +1,17 @@
+#+BEGIN_SRC elisp
+(use-package geiser
+  :ensure t
+  :disabled)
+#+END_SRC
+
+#+begin_src elisp
+(use-package geiser-guile
+  :ensure t)
+  ;; :hook
+  ;; (scheme-mode . run-geiser))
+#+end_src
+
+#+begin_src elisp
+(use-package ac-geiser
+  :ensure t)
+#+end_src

src/modules/languages/markdown.org

@@ -0,0 +1,6 @@
+#+BEGIN_SRC elisp
+(use-package markdown-mode
+  :ensure t
+  :mode ("README\\.md\\'" . gfm-mode)
+  :init (setq markdown-command "multimarkdown"))
+#+END_SRC

src/modules/languages/php.org

@@ -0,0 +1,14 @@
+#+begin_src elisp
+  (use-package php-ts-mode
+    :ensure t
+    :hook
+    ((php-ts-mode . eglot-ensure))
+    :init
+    (add-to-list 'auto-mode-alist '("\\.php$" . php-ts-mode)))
+#+end_src
+
+#+begin_src elisp
+  (use-package company-php
+    :disabled
+    :ensure t)
+#+end_src

src/modules/languages/polymode.org

@@ -0,0 +1,13 @@
+#+begin_src elisp
+(use-package polymode
+  :disabled
+  :ensure t)
+#+end_src
+
+#+begin_src elisp
+(use-package poly-org
+  :disabled
+  :ensure t
+  :config
+  (add-to-list 'auto-mode-alist '("\\.org" . poly-org-mode)))
+#+end_src

src/modules/languages/yaml.org

@@ -0,0 +1,16 @@
+* Yaml Mode
+#+BEGIN_SRC elisp
+  (use-package yaml-mode
+    :ensure t
+    :config
+    (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode)))
+#+END_SRC
+
+* Yaml TS Mode (not ready)
+#+BEGIN_SRC elisp
+  (use-package yaml-ts-mode
+    :disabled
+    :init
+    (add-to-list 'auto-mode-alist '("\\.yml" . yaml-ts-mode))
+    (add-to-list 'auto-mode-alist '("\\.yaml" . yaml-ts-mode)))
+#+END_SRC

src/modules/utility/dirvish.org

@@ -0,0 +1,9 @@
+#+begin_src elisp
+(use-package dirvish
+  :ensure t
+  :disabled
+  :config
+  (dirvish-override-dired-mode)
+  (setq dirvish-attributes
+      '(vc-state subtree-state all-the-icons collapse git-msg file-time file-size)))
+#+end_src

src/modules/utility/eaf.org

@@ -0,0 +1,8 @@
+#+begin_src elisp
+(use-package eaf
+   :vc (:url "https://github.com/emacs-eaf/emacs-application-framework"
+	     :branch "master")
+   :disabled
+   :config
+   (eaf-install-and-update))
+#+end_src

src/modules/utility/el-easydraw.org

@@ -0,0 +1,11 @@
+#+begin_src elisp
+(use-package edraw-org
+  :vc (:url "https://github.com/misohena/el-easydraw"
+       :branch "master")
+  :config
+  (edraw-org-setup-default)
+  (with-eval-after-load "ox"
+    (require 'edraw-org)
+    (edraw-org-setup-exporter)))
+
+#+end_src

src/modules/utility/exec-path-from-shell.org

@@ -0,0 +1,7 @@
+#+begin_src elisp
+  (use-package exec-path-from-shell
+    :ensure t
+    :config
+    (when (memq window-system '(mac ns x))
+    (exec-path-from-shell-initialize)))
+#+end_src

src/modules/utility/fireplace.org

@@ -0,0 +1,4 @@
+#+begin_src elisp
+(use-package fireplace
+  :ensure t)
+#+end_src

src/modules/utility/magit.org

@@ -0,0 +1,4 @@
+#+BEGIN_SRC elisp
+  (use-package magit
+    :ensure t)
+#+END_SRC

src/modules/utility/mastodon.org

@@ -0,0 +1,7 @@
+#+begin_src elisp
+(use-package mastodon
+  :ensure t
+  :config
+  (setq mastodon-instance-url "https://fosstodon.org"
+        mastodon-active-user "superkamiguru"))
+#+end_src

src/modules/utility/mpv.org

@@ -0,0 +1,5 @@
+#+begin_src elisp
+(use-package mpv
+  :ensure t)
+#+end_src
+

src/modules/utility/org-reminders.org

@@ -0,0 +1,5 @@
+#+begin_src elisp
+(use-package org-reminders
+  :vc (:url "https://github.com/ginqi7/org-reminders"
+       :branch "main"))
+#+end_src

src/modules/utility/poke-line.org

@@ -0,0 +1,7 @@
+#+begin_src elisp
+(use-package poke-line
+  :ensure t
+  :config
+  (poke-line-global-mode 1)
+  (setq-default poke-line-pokemon "gengar"))
+#+end_src

src/modules/utility/vterm.org

@@ -0,0 +1,46 @@
+#+begin_src elisp
+  (use-package vterm
+    :ensure t
+    ;;:disabled
+    :defer
+    :bind
+    ("C-c o t" . vterm-toggle)
+    (:map project-prefix-map
+          ("t" . project-vterm))
+    :preface
+    (defun project-vterm ()
+      (interactive)
+      (defvar vterm-buffer-name)
+      (let* ((default-directory (project-root     (project-current t)))
+             (vterm-buffer-name (project-prefixed-buffer-name "vterm"))
+             (vterm-buffer (get-buffer vterm-buffer-name)))
+        (if (and vterm-buffer (not current-prefix-arg))
+            (pop-to-buffer vterm-buffer  (bound-and-true-p display-comint-buffer-action))
+  	(vterm))))
+    :init
+    (setq vterm-always-compile-module t)
+    (add-to-list 'project-switch-commands     '(project-vterm "Vterm") t)
+    (add-to-list 'project-kill-buffer-conditions  '(major-mode . vterm-mode))
+    :config
+    (add-to-list 'display-buffer-alist
+  	       '("\*vterm\*"
+  		 (display-buffer-in-side-window)
+  		 (window-height . 0.25)
+  		 (side . bottom)
+  		 (slot . 0))))
+#+end_src
+
+#+begin_src elisp
+(use-package vterm-toggle
+  :ensure t
+  ;;:disabled
+  :after (vterm))
+#+end_src
+
+#+begin_src elisp
+(use-package multi-vterm
+  :ensure t
+  ;;:disabled
+  :bind
+  ("C-c t n" . multi-vterm))
+#+end_src