Add PL/SQL support

init.el

@@ -50,6 +50,11 @@
 (require 'use-package-ensure)
 (setq use-package-always-ensure t)
 
+;; TODO: https://github.com/joaotavora/eglot/discussions/1436
+(use-package eglot
+  :defer t)
+(require 'project)
+
 ;; TODO: https://github.com/joaotavora/eglot/discussions/1487
 (use-package eldoc :straight (:type built-in))
 (use-package org :straight (:type built-in))

userland/system-util.el

@@ -56,7 +56,7 @@
     ["Networking" ("d" "Dashboard" nm-ui-dashboard)
      ("S" "Status" nm-status)
      ("w" "WiFi Browser" nm-ui-wifi-list)
-     ("c" "Connections" nm-ui-connections)]
+     ("c" "Connections" nm-ui-connections-list)]
     ["Bluetooth" ("l" "List Devices" bluetooth-list-devices)])
 
   (define-key global-map (kbd "C-c o s") #'system-interactions-transient))

userland/theurgy-projects.el

@@ -1,4 +1,4 @@
-;;; projects.el --- Project management configuration with whaler -*- lexical-binding: t -*-
+;;; theurgy-projects.el --- Project management configuration with whaler -*- lexical-binding: t -*-
 
 ;; This file is not part of GNU Emacs
 
@@ -75,6 +75,6 @@ This returns nil if no project is found."
   (interactive)
   (customize-group 'whaler))
 
-(provide 'projects)
+(provide 'theurgy-projects)
 
-;;; projects.el ends here
+;;; theurgy-projects.el ends here

window-utils.el

@@ -39,7 +39,7 @@
 ;; left, top, right, bottom
 (setq window-sides-slots (if (equal system-type 'android)
 			     '(1 1 0 1)
-			   '(5 1 5 1)))
+			   '(5 1 5 2)))
 
 (add-to-list 'display-buffer-alist
              `("\\*Help\\*"

workflows/config-custom.el

@@ -26,6 +26,7 @@
 (use-package yaml-mode
   :config
   (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))
+  (add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode))
   (add-hook 'yaml-mode-hook
 	    '(lambda ()
                (define-key yaml-mode-map "\C-m" 'newline-and-indent))))

workflows/lisp-custom.el

@@ -45,7 +45,13 @@
 (use-package geiser)
 
 (use-package geiser-chicken
-  :after (geiser))
+  :after (geiser)
+  :config (add-to-list 'display-buffer-alist
+		       '("\\*Geiser"
+			 (display-buffer-in-side-window)
+			 (side . bottom)
+			 (slot . 1)
+			 (window-height . 0.2))))
 
 ;; SICP my beloved
 (use-package sicp

workflows/org-custom.el

@@ -647,7 +647,8 @@
   :config
   (setq org-roam-ui-sync-theme t
         org-roam-ui-follow t
-        org-roam-ui-update-on-save t))
+        org-roam-ui-update-on-save t
+	org-roam-ui-open-on-start nil))
 
 ;; Bibliography stuff
 (setq bibtex-dialect 'biblatex) ;; Use biblatex instead of bibtex.
@@ -687,10 +688,15 @@
 	     :type git :host github :repo "hasu/emacs-ob-racket"
 	     :files ("*.el" "*.rkt")))
 
+;; Mermaid support, for graphing
+(use-package mermaid-mode)
+(use-package ob-mermaid)
+
 (org-babel-do-load-languages
  'org-babel-load-languages
  '((emacs-lisp . t)
    (racket . t)
+   (mermaid . t)
    ))
 
 ;;; LaTeX configuration

workflows/sql-custom.el

@@ -0,0 +1,30 @@
+;;; sql-custom.el --- Custom SQL configuration -*- lexical-binding: t -*-
+
+;; This file is not part of GNU Emacs
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+
+;;; Commentary:
+
+;; commentary
+
+;;; Code:
+
+;; PL/SQL Support
+(use-package plsql)
+
+(provide 'sql-custom)
+
+;;; sql-custom.el ends here