doom_config_settings/config.el

177 lines
7 KiB
EmacsLisp
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file!
;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets. It is optional.
;; (setq user-full-name "John Doe"
;; user-mail-address "john@doe.com")
;; Doom exposes five (optional) variables for controlling fonts in Doom:
;;
;; - `doom-font' -- the primary font to use
;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
;; presentations or streaming.
;; - `doom-symbol-font' -- for symbols
;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
;;
;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
;;
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
;;
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
;; refresh your font settings. If Emacs still can't find your font, it likely
;; wasn't installed correctly. Font issues are rarely Doom issues!
;; There are two ways to load a theme. Both assume the theme is installed and
;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default:
(setq doom-theme 'doom-one)
;; This determines the style of line numbers in effect. If set to `nil', line
;; numbers are disabled. For relative line numbers, set this to `relative'.
(setq display-line-numbers-type t)
;; If you use `org' and don't want your org files in the default location below,
;; change `org-directory'. It must be set before org loads!
(setq org-directory "~/org/")
;; Whenever you reconfigure a package, make sure to wrap your config in an
;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
;;
;; (after! PACKAGE
;; (setq x y))
;;
;; The exceptions to this rule:
;;
;; - Setting file/directory variables (like `org-directory')
;; - Setting variables which explicitly tell you to set them before their
;; package is loaded (see 'C-h v VARIABLE' to look up their documentation).
;; - Setting doom variables (which start with 'doom-' or '+').
;;
;; Here are some additional functions/macros that will help you configure Doom.
;;
;; - `load!' for loading external *.el files relative to this one
;; - `use-package!' for configuring packages
;; - `after!' for running code after a package has loaded
;; - `add-load-path!' for adding directories to the `load-path', relative to
;; this file. Emacs searches the `load-path' when you load packages with
;; `require' or `use-package'.
;; - `map!' for binding new keys
;;
;; To get information about any of these functions/macros, move the cursor over
;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
;; This will open documentation for it, including demos of how they are used.
;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
;; etc).
;;
;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
;; they are implemented.
;; set emacs to use vivaldi to open all links
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "/Applications/Vivaldi.app/Contents/MacOS/Vivaldi")
; associate gdscript mode with .gd file extensions
(add-to-list 'auto-mode-alist '("\\.gd\\'" . gdscript-mode))
;; Enable Python in Org Babel
(after! org
(org-babel-do-load-languages
'org-babel-load-languages
'((python . t)))) ;; Turn on Python execution
;; Optional: Dont ask for confirmation every time
(setq org-confirm-babel-evaluate nil)
(setq org-ditaa-jar-path "/opt/homebrew/Cellar/ditaa/0.11.0_1/libexec/ditaa-0.11.0-standalone.jar")
(org-babel-do-load-languages
'org-babel-load-languages
'((ditaa . t)
(emacs-lisp . t)))
(after! org
(setq org-plantuml-jar-path
(expand-file-name "/opt/homebrew/Cellar/plantuml/1.2025.8/libexec/plantuml.jar"))
(org-babel-do-load-languages
'org-babel-load-languages'((plantuml . t))))
(setenv "JAVA_HOME" "/opt/homebrew/opt/openjdk/libexec/openjdk.jdk/Contents/Home")
(setenv "PATH" (concat (getenv "JAVA_HOME") "/bin:" (getenv "PATH")))
(add-to-list 'exec-path (concat (getenv "JAVA_HOME") "/bin"))
(defun ronny-insert-ecomm-template ()
"Insert the e-commerce lesson template into the current buffer."
(interactive)
(insert-file-contents "~/.doom.d/templates/notes/ecomm-lesson.org")
(save-excursion
(goto-char (point-min))
(when (re-search-forward "%(file-name-base buffer-file-name)" nil t)
(replace-match (file-name-base (or buffer-file-name "Untitled"))))))
(defun ronny-insert-envy-template ()
"Insert the facebook envy lesson template into the current buffer."
(interactive)
(insert-file-contents "~/.doom.d/templates/notes/facebook_envy-lesson.org")
(let* (( base ( file-name-base (or buffer-file-name "Untitled")))
;; From: \"S04|22 - scale by hiring freelanders\"
;; To: \"S04|22\"
(lesson-code (car (split-string base " - "))))
(save-excursion
(goto-char (point-min))
;; existing behavior
(when (search-forward "%(file-name-base buffer-file-name)" nil t)
(replace-match base t t))
;; new placeholder for S04|22
(goto-char (point-min))
(when (search-forward "%(lesson-code)" nil t)
(replace-match lesson-code t t)))))
(defun ronny-insert-radiate-template ()
"Insert the radiate lesson template into the current buffer."
(interactive)
(insert-file-contents "~/.doom.d/templates/notes/radiate-lesson.org")
(let* (( base ( file-name-base (or buffer-file-name "Untitled")))
;; From: \"S04|22 - scale by hiring freelanders\"
;; To: \"S04|22\"
(lesson-code (car (split-string base " - "))))
(save-excursion
(goto-char (point-min))
;; existing behavior
(when (search-forward "%(file-name-base buffer-file-name)" nil t)
(replace-match base t t))
;; new placeholder for S04|22
(goto-char (point-min))
(when (search-forward "%(lesson-code)" nil t)
(replace-match lesson-code t t)))))
;; --- ronny core ---
(load! "ronny/core")
(load! "ronny/parser")
;; Doom keybindings under SPC m C
(map! :map org-mode-map
:leader
(:prefix ("m C" . "custom export")
:desc "Export HTML" "h" #'ronny-org-export-html-to-exports
:desc "Export PDF" "p" #'ronny-org-export-pdf-to-exports
:desc "Export HTML open" "o" #'ronny-org-export-html-to-exports-and-open
:desc "Export PDF open" "P" #'ronny-org-export-pdf-to-exports-and-open
:desc "ODT export" "d" #'ronny-org-export-odt-to-exports
:desc "DOCX export" "D" #'ronny-org-export-docx-to-exports))
(map! :map org-mode-map
:leader
(:prefix ("m C t" . "template")
:desc "Insert online store template" "o" #'ronny-template-insert-online-store))