diff --git a/modules/apps/db/config.el b/modules/apps/db/config.el deleted file mode 100644 index 9c8e972ed..000000000 --- a/modules/apps/db/config.el +++ /dev/null @@ -1,43 +0,0 @@ -;;; custom-db.el - -(use-package sql-mode - :mode "\\.sql$" - :config - (def-popup! "\\*SQL.*\\*" :align below :size 0.4 :noselect t :regexp t) - (evil-set-initial-state 'sql-interactive-mode 'emacs) - (push 'sql-interactive-mode doom-popup-protect-modes) - ;; For my local development environment - (setq sql-pop-to-buffer-after-send-region nil - sql-server "docker.dev" - sql-user "root" - sql-password "")) - -;; extract these -(evil-define-command doom:db-select (product) - (interactive "") - (sql-set-product (intern product)) - (message "sql-product set to %s" product)) - -(evil-define-operator doom:db (beg end &optional bang product) - "Open a db connection, reopen an old one, or send the selected region to the -open comint." - :type inclusive - (interactive "") - (let ((sql-buf (get-buffer sql-buffer))) - (when (and bang sql-buf) - (message "Restarting connection") - (kill-buffer sql-buf)) - (if sql-buf - (if (or (get-buffer-window sql-buf) - (evil-visual-state-p)) - (sql-send-region beg end) - (doom/popup-buffer sql-buf)) - (let ((product (if product (intern product) sql-product))) - (unless product - (user-error "No SQL product is set")) - (sql-set-product product) - (sql-product-interactive product 0) - (message "Started new %s connection" product))))) - -(provide 'custom-db) -;;; custom-db.el ends here diff --git a/modules/apps/present/config.el b/modules/apps/present/config.el deleted file mode 100644 index b5d3ace7d..000000000 --- a/modules/apps/present/config.el +++ /dev/null @@ -1,53 +0,0 @@ -;;; custom-demo.el --- -*- no-byte-compile: t; -*- - -;; This library offers: -;; + impatient-mode: for broadcasting my emacs session -;; + big-mode: for enlarged text while screencasting -;; + TODO integration with reveal.js for presentations -;; + TODO peer programming collab - -;; Big-mode settings -(defconst big-mode-font (font-spec :family "Fira Mono" :size 14)) -(defconst big-mode-line-spacing 0) -(defconst big-mode-modeline-height 35) - -;; -(use-package impatient-mode - :commands impatient-mode - :config (httpd-start)) - -(defvar big-mode--old-line-spacing line-spacing) -(defvar big-mode--old-modeline-height doom-modeline-height) -(define-minor-mode big-mode - :init-value nil - :lighter " BIG" - :global t - (when big-mode-font - (doom/load-font (if big-mode big-mode-font doom-ui-font))) - (if big-mode - (setq-default - doom-modeline-height big-mode-modeline-height - line-spacing big-mode-line-spacing) - (setq-default - doom-modeline-height big-mode--old-modeline-height - line-spacing big-mode--old-line-spacing))) - -(evil-define-command doom:big (&optional size) - "Use to enable large text mode." - (interactive "") - (if size - (let ((big-mode-font big-mode-font)) - (big-mode -1) - (font-put big-mode-font :size (string-to-int size)) - (big-mode +1)) - (big-mode (if big-mode -1 +1)))) - -(defun doom/resize-for-stream () - "Resize the frame pixelwise, so that it fits directly into my livecoding.tv -streaming layout." - (interactive) - (set-frame-width (selected-frame) 1325 nil t) - (set-frame-height (selected-frame) 1080 nil t)) - -(provide 'custom-demo) -;;; custom-demo.el ends here diff --git a/modules/apps/write/config.el b/modules/apps/write/config.el deleted file mode 100644 index dc5562ea4..000000000 --- a/modules/apps/write/config.el +++ /dev/null @@ -1,62 +0,0 @@ -;; custom-write.el --- FIXME - -;; This library offers the following: -;; + Write-mode: a mode that turns Emacs into an app for writing notes, -;; papers, or fiction: it adds eye-candy to org-mode, switches to a light -;; color theme and to a more readable font. -;; + Bibtex integration - -;; Write-mode settings -(defconst write-mode-font (font-spec :family "Source Sans Pro" :size 14)) - -(defconst write-mode--last-mode-line mode-line-format) -(defconst write-mode--last-theme doom-ui-theme) -(defconst write-mode--last-line-spacing line-spacing) - -(defun doom-write-mode-line (&optional id) - `(:eval - (let* ((active (eq (selected-window) mode-line-selected-window)) - (lhs (list (propertize " " - 'display - (pl/percent-xpm doom-modeline-height 100 0 100 0 3 - (face-attribute (if active 'doom-modeline-bar 'doom-modeline-inactive-bar) :background nil t) - nil)) - (*flycheck) - (*macro-recording) - (*selection-info) - (*anzu) - (*evil-substitute) - (*iedit) - " " - ,(if (eq id 'scratch) - '(*buffer-pwd) - '(list (*buffer-path) (*buffer-name) " ")) - (*buffer-state))) - (rhs (list (*buffer-encoding-abbrev) " " - (*vc) " " - (*major-mode) " " - (*buffer-position))) - (middle (propertize - " " 'display `((space :align-to (- (+ right right-fringe right-margin) - ,(1+ (string-width (format-mode-line rhs))))))))) - (list lhs middle rhs)))) - -(defvar write-mode nil) -(defun doom/write-mode () - "A mode that turns Emacs into an app for writing notes, papers, or fiction: it -adds eye-candy to org-mode, switches to a light color theme and to a more -readable font." - (interactive) - (setq write-mode (not write-mode)) - (when write-mode-font - (doom/load-font (if write-mode write-mode-font doom-ui-font))) - (mapc (lambda (b) - (with-current-buffer b - (setq line-spacing (if write-mode write-mode--last-line-spacing '2)) - (when (featurep 'spaceline) - (let ((doom-hide-mode-line-format '("%e" (:eval (spaceline-ml-write))))) - (doom-hide-mode-line-mode (if write-mode +1 -1)))))) - (doom/get-buffers-in-modes '(org-mode markdown-mode)))) - -(provide 'custom-write) -;;; custom-write.el ends here