Rational config files

config.el

;; Load rational modules
(require 'rational-defaults)
(require 'rational-screencast)
(require 'rational-ui)
(require 'rational-editing)
(require 'rational-completion)
(require 'rational-windows)
(require 'rational-use-package)

;;; example-config.el ends here
(straight-use-package 'use-package)
(setq straight-use-package-by-default t)
(use-package diminish)

;; (use-package company)
;; :diminish
;; :config (global-company-mode t)

(use-package undo-tree
  :diminish
  :bind ("C-x u" . undo-tree-visualize)
  :config (global-undo-tree-mode t))

(use-package super-save
  :diminish
  :config (super-save-mode t)
  (setq super-save-auto-save-when-idle t
        super-save-idle-duration 7
        auto-save-default nil)
  (add-to-list 'super-save-triggers 'ace-window)
  (add-to-list 'super-save-triggers 'magit-status)
  (add-to-list 'super-save-hook-triggers 'find-file-hook)
  (add-to-list 'super-save-triggers 'helpful-at-point))

(use-package try
  :diminish)

(setq eshell-prefer-lisp-functions t)

(setq password-cache t) ; enable password caching
(setq password-cache-expiry 3600) ; for one hour (time in secs)

(electric-pair-mode 1) ; auto-insert matching bracket
(show-paren-mode 1)    ; turn on paren match highlighting

(bind-key "C-c C-h" #'helpful-at-point)

;; Fullscreen
(set-frame-parameter nil 'fullscreen 'fullboth)
(load-theme 'doom-snazzy t)

(set-face-attribute 'default nil
                    :font "CaskaydiaCove Nerd Font"
                    :weight 'light
                    :height 140)

(setq auto-save-timeout 5)

(bind-key "C-h a" #'consult-apropos)
(bind-key "C-x b" #'consult-buffer)

(setq-default dired-hide-details-mode t)
(setq dired-auto-revert-buffer t)
;;(bind-key "'" #'dired-up-directory 'dired-mode-map)
(use-package dired-toggle-sudo
  :bind (:map dired-mode-map ("C-c C-s" . #'dired-toggle-sudo)))

(use-package dired-git-info
  :bind (:map dired-mode-map
	      ("M-g" . dired-git-info-mode)))

;;(bind-key "'" #'diredp-up-directory-reuse-dir-buffer 'dired-mode)

(setq apropos-do-all t)
(global-subword-mode t)
(global-superword-mode nil)
(add-hook 'prog-mode-hook #'electric-layout-mode)
(global-prettify-symbols-mode t)
(global-hl-line-mode t)
(bind-key "'" 'Info-up 'Info-mode-map)

(use-package ace-window
  :diminish
  :bind ("M-o" . ace-window)
  :config (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)))

(use-package rainbow-delimiters
  :hook ((prog-mode) . rainbow-delimiters-mode))

(use-package rainbow-mode)

(use-package macrostep
  :bind ("C-c e" . macrostep-mode))

profiles.el

(("default" . ((user-emacs-directory . "~/.config/emacs.default/")))
 ("rational" . ((user-emacs-directory . "~/.config/rational-emacs/")
		(env . (("RATIONAL_EMACS_HOME" . "~/.config/rational-config/"))))))


;; (("default" . ((user-emacs-directory . "~/.config/emacs.default/")))  
;; ("doom" . ((user-emacs-directory . "~/.config/emacs.doom")  
;; (env . (("DOOMDIR" . "~/.config/doom")))))  
;; ("lsp" . ((user-emacs-directory . "~/.config/emacs.lsp/")))  
;; ("slask" . ((user-emacs-directory . "~/.config/emacs.slask")))  
;; ("rational" . ((user-emacs-directory . "~/.config/emacs.rational")  
;; (env . (("RATIONAL_EMACS_HOME" . "~/.config/rational"))))))