diff options
| -rw-r--r-- | init-el.org | 367 |
1 files changed, 247 insertions, 120 deletions
diff --git a/init-el.org b/init-el.org index d7a96bd..13d0080 100644 --- a/init-el.org +++ b/init-el.org @@ -29,6 +29,7 @@ #+name: preamble #+begin_src elisp :noweb no-export ;;; PREAMBLE +(message "PREAMBLE") (setq custom-file (concat user-emacs-directory "../notes/custom.el")) (load custom-file 'noerror) @@ -37,7 +38,7 @@ (setq warning-minimum-level :emergency) -;;; utilities +;;; UTILITIES (defun read-file-into-string (f) (with-temp-buffer (insert-file-contents f) @@ -62,8 +63,8 @@ to disable it. #+name: native-comp #+begin_src elisp :results none -;; Native compilation setup - +;;; Native compilation setup +(message "Native compilation setup") (when (and (fboundp 'native-comp-available-p) (native-comp-available-p)) (setq package-native-compile t @@ -77,8 +78,9 @@ I'm using melpa and elpa package archives. #+name: packages-setup-config #+begin_src elisp :results none -;; PACKAGES SETUP -(require 'cl) +;;; PACKAGES SETUP +(message "PACKAGES SETUP") +(require 'cl-lib) (defun my-package-install (package &optional archive dont-select) "archive is a string naming the archive. Will attempt" @@ -97,7 +99,7 @@ I'm using melpa and elpa package archives. '("melpa" . "https://melpa.org/packages/") t) (package-initialize) -;(package-refresh-contents) +;;;(package-refresh-contents) (package-install 'use-package) #+end_src @@ -118,25 +120,25 @@ I'm using melpa and elpa package archives. #+name: my-leader-key-system #+begin_src elisp :results none - ;; Leader Keys System - + ;;; Leader Keys System + (message "Leader Keys Ssytem") (setq lexical-binding t) (defmacro def-my-command (name forms) `(defun ,name (ch) (interactive (let ((input (read-char (my-prompt-string ,forms)))) - (list input))) + (list input))) (let ((command (assoc ch ,forms))) (when command - (call-interactively (caddr command)))))) + (call-interactively (caddr command)))))) ;; a helper function for navigating command menus (defun my-prompt-string (&optional forms) (concat "Options: " - (mapconcat 'identity - (mapcar #'cadr - (if forms forms *my-leader-command-forms*)) - ", "))) + (mapconcat 'identity + (mapcar #'cadr + (if forms forms *my-leader-command-forms*)) + ", "))) #+end_src @@ -147,13 +149,14 @@ I'm using melpa and elpa package archives. #+name: my-leader-key-toplevel-menu #+begin_src elisp :results none -;; Leader Key Entry Point +;;; Leader Key Entry Point +(message ";;; Leader Key Entry Point") (setq imenu-auto-rescan t) (def-my-command my-leader-command '((?/ "[/] swiper" swiper) - ;(?? "[?] imenu" imenu-list) + (?. "[.] dired" dired) (?r "[r]eplace" query-replace) (?e "[e]diting" my-special-edit-command) (?' "['] shell" persp-shell--jump-to-persp-shell) @@ -167,8 +170,7 @@ I'm using melpa and elpa package archives. (?p "[p]roject" my-projectile-command) (?m "[m]ajor" my-major-mode-command) (?f "[f]ind-file" find-file) - (?d "[d]ired" dired) - ;(?d "[d]irvish" dirvish) + (?d "[d]enote" my-denote-commands) (?r "[R]eading" my-reading-command) (?s "[s]ly" sly) (?h "[h]elp" helpful-at-point))) @@ -181,7 +183,8 @@ I'm using melpa and elpa package archives. #+name: my-leader-key-major-mode-menu #+begin_src elisp :results none -;; major mode leaader keys +;;; major mode leaader keys +(message ";;; major mode leaader keys") (defvar my-major-mode-list nil "subcommands by major-mode") (setf my-major-mode-list @@ -204,19 +207,19 @@ I'm using melpa and elpa package archives. #+name: my-leader-key-applications-menu #+begin_src elisp :results none - +;;; my utils commadn +(message ";;; my utils commadn") (def-my-command my-utilities-command '((?o "org clock [o]ut" org-clock-out) (?r "org [r]esume last" org-clock-in-last) (?c "[c]alendar" cfw:open-org-calendar) (?a "[a]genda" org-agenda) (?b "[b]ooks" calibredb) - (?d "[d]eft" toggle-deft) (?e "[e]macs config" open-emacs-config) (?f "el[f]eed" elfeed) (?j "[j]ournal" toggle-journal) (?s "[s]ecrets" toggle-secrets) - (?p "[p]omodoro" pomidor) + (?p "[p]aste buffer" pastiche-paste-current-buffer) (?w "[w]eb browser (eww)" eww) (?C "[C]RDT" my-crdt-commands) (?t "[t]asks" list-cicadas-tasks))) @@ -230,7 +233,8 @@ I'm using melpa and elpa package archives. #+name: org-mode-main-config #+begin_src elisp :noweb no-export :results none -;; org mode config +;;; ORG MODE CONFIG +(message ";;; ORG MODE CONFIG") (package-install 'org) (require 'org) @@ -281,7 +285,10 @@ I'm using melpa and elpa package archives. ** My-Leader Key for Org Major Mode #+name: org-mode-leader-key-menu #+begin_src elisp :results none :noweb no-export -;; org mode leader keys and related commands +;;; ORG MODE LEADER KEYS AND RELATED COMMANDS + +(message ";;; ORG MODE LEADER KEYS AND RELATED COMMANDS") + (defun org-src--source-buffer () (marker-buffer org-src--beg-marker)) @@ -366,7 +373,8 @@ again, if it was whent he org edit src buffer was opened." ** Fonts #+name: ui-fonts #+begin_src elisp :noweb no-export -;; fonts +;;; FONTS +(message ";;; FONTS") (add-to-list 'default-frame-alist '(font . "DejaVu Sans Mono-10") @@ -389,7 +397,8 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-chrome-config #+begin_src elisp :results none - ;; UI Chrome + ;;; UI Chrome + (message ";;; UI Chrome") (blink-cursor-mode 0) (setq-default cursor-type 'box) @@ -423,8 +432,8 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-tweaks-config #+begin_src elisp :results none -;; global keys - +;;; GLOBAL KEYS +(message ";;; GLOBAL KEYS") (global-unset-key (kbd "<Scroll_Lock>")) (global-unset-key "\C-z") (setq-default indent-tabs-mode nil) @@ -438,7 +447,8 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-completion-engine #+begin_src elisp :results none -;; command completions +;;; COMMAND COMPLETIONS +(message ";;; COMMAND COMPLETIONS ") (package-install 'ivy) ;(package-install 'smex) @@ -459,6 +469,9 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-windows-and-perspectives-packages #+begin_src elisp :results none +;;; WINDOW MANAGMENT PACKAGES +(message ";;;;;; WINDOW MANAGMENT PACKAGES") + (package-install 'perspective) (setq persp-suppress-no-prefix-key-warning t) (persp-mode 1) @@ -475,7 +488,8 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-window-leader-key-menu #+begin_src elisp :results none - +;;; WINDOW MANAGER LEADER KEY +(message ";;; WINDOW MANAGER LEADER KEY") (setq fit-window-to-buffer-horizontally t) @@ -515,6 +529,9 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-buffer-leader-key-menu #+begin_src elisp :results none +;;; MY BUFFER COMMAND + +(message ";;; MY BUFFER COMMAND") (def-my-command my-buffer-command '((?b "switch [b]uffers" ivy-switch-buffer) @@ -529,6 +546,10 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-perspectives-leader-key-menu #+begin_src elisp :results none +;;; MY PERSPECTIVE COMMAND +(message ";;; MY PERSPECTIVE COMMAND") + + (def-my-command my-perspective-command '((?s "[s]witch perspective" persp-switch) (?k "[k]ill perspective" persp-kill) @@ -541,7 +562,8 @@ again, if it was whent he org edit src buffer was opened." #+name: modeline-config #+begin_src elisp :noweb no-export :results none - +;;; MODELINE SETUP +(message ";;; MODELINE SETUP") (package-install 'feline) @@ -568,7 +590,9 @@ again, if it was whent he org edit src buffer was opened." #+name: ui-themes-theme-switcher #+begin_src elisp :results none +;;; THEMES UTILS +(message ";;; THEMES UTILS") (defun themes-in-package (package) "PACKAGE is a symbol naming a particular theme package. Return a @@ -585,7 +609,7 @@ LOAD-THEME" "-theme\\.el\\'")) (when package-dir - (remove-if-not + (cl-remove-if-not 'custom-theme-p (mapcar (lambda (file) @@ -619,12 +643,6 @@ LOAD-THEME" (message (format "%s [n]ext or [p]revious. Anything else to quit." (my-theme-string)))))) -(defun my-theme-linum-mode-cycler () - "sometimes cycling themes when linum mode is on causes screwy display. cycling helps." - (when (and (boundp 'linum-mode) (symbol-value linum-mode)) - (linum-mode -10) - (linum-mode))) - (defun my-theme-command-next () (interactive) (let* ((active-theme (car custom-enabled-themes)) @@ -634,8 +652,7 @@ LOAD-THEME" (load-theme next-theme t) (load-theme (car *current-theme-set*) t)) (setq cursor-type 'box) - (setq-default cursor-type 'box) - (my-theme-linum-mode-cycler))) + (setq-default cursor-type 'box))) (defun my-theme-command-previous () (interactive) @@ -648,8 +665,7 @@ LOAD-THEME" (load-theme (car themes) t)) (setq cursor-type 'box) - (setq-default cursor-type 'box) - (my-theme-linum-mode-cycler))) + (setq-default cursor-type 'box))) #+end_src @@ -657,20 +673,36 @@ LOAD-THEME" #+name: ui-themes-installed #+begin_src elisp :results none +;;; INSTALLED THEMES + +(message ";;; INSTALLED THEMES") + + (package-install 'autothemer) ;; for custom themes (setq my-installed-themes '( + plan9-theme + solarized-theme poet-theme - silkworm-theme - flexoki-themes - distinguished-theme + subatomic-theme + weyland-yutani-theme + grey-paper-theme + yabaki-theme + kaolin-themes + tao-theme + rimero-theme + seoul256-theme + dakrone-theme + morgentau-theme naga-theme grandshell-theme faff-theme doom-themes base16-theme + almost-mono-themes + ef-themes )) (dolist (package my-installed-themes) @@ -686,23 +718,40 @@ LOAD-THEME" #+name: ui-themes-choice-themes #+begin_src elisp :noweb no-export :results none +;;; CHOICE THEMES + +(message ";;; CHOICE THEMES") + (setq *coding-themes* '( ;; light - unspecified leuven - flexoki-themes-light + plan9 + goose faff ;; medium - base16-catppuccin-frappe - base16-silk-dark + solarized-selenized-dark + morgentau + solarized-gruvbox-dark ;; dark - base16-chalk + weyland-yutani doom-dark+ grandshell - naga - distinguished)) + naga)) + +;; (setq *coding-themes* +;; (themes-in-package 'ef)) + +;; (setq *coding-themes* +;; (themes-in-package 'tao)) + +;; (setq *coding-themes* +;; (themes-in-package 'kaolin)) + + +;; (setq *coding-themes* +;; (themes-in-package 'doom)) (setq *writing-themes* (themes-in-package 'poet)) @@ -726,6 +775,8 @@ LOAD-THEME" #+name: time-management-preamble #+begin_src elisp :noweb no-export :results none +;;; ORG CONFIGS +(message ";;; ORG CONFIGS") (setq org-enforce-todo-dependencies t org-enforce-todo-checkbox-dependencies t) @@ -740,6 +791,9 @@ stand up and move around. #+name: pomidor #+begin_src elisp :noweb no-export :results none +;;; POMIDOR + +(message ";;; POMIDOR") (package-install 'pomidor) (setq pomidor-seconds (* 60 60) @@ -755,6 +809,10 @@ stand up and move around. #+name: calfw-org-config #+begin_src elisp :noweb no-export :results none + +;;; CALENDAR +(message ";;; CALENDAR") + (package-install 'calfw) (package-install 'calfw-org) (require 'calfw) @@ -773,6 +831,10 @@ stand up and move around. #+name: org-refile-config #+begin_src elisp :results none + +;;; ORG REFILE +(message ";;; ORG REFILE") + (setq my-org-refile-directory "~/notes/deft/") (defun my-org-refile-targets () @@ -793,32 +855,14 @@ stand up and move around. #+name:org-capture-config #+begin_src elisp :results none -(setq org-capture-templates - (quote - ( - ("w" "Web Clip" entry - (file+olp+datetree "~/notes/deft/Web.org" "Weblink") - "* TOREAD %:annotation \n\n#+begin_quote\n\n%i\n\n#+end_quote\n\n" - :immediate-finish t - :empty-lines 1 - :prepend t) - ("l" "Web Link" entry - (file+olp+datetree "~/notes/deft/Web.org" "Weblink") - "* TOREAD %:annotation" - :immediate-finish t - :empty-lines 1 - :prepend t) - ("n" "Note" entry - (file+olp "~/notes/deft/Planner.org" "Notes") - "* %U\n\n %F\n\n" - :prepend t - :empty-lines 1) - ("j" "Journal" entry - (file+olp+datetree "~/notes/circadian.org.cpt") - "") - ("c" "Calendar" entry - (file+headline "~/notes/deft/Planner.org" "CALENDAR") - "* %?\n %(cfw:org-capture-day)")))) +;;; ORG CAPTURE +(message ";;; ORG CAPTURE") + +(with-eval-after-load 'org-capture + (add-to-list 'org-capture-templates + '("j" "Journal" entry + (file+olp+datetree "~/notes/circadian.org.cpt") + ""))) #+end_src @@ -826,6 +870,8 @@ stand up and move around. #+name: org-agenda-config #+begin_src elisp :noweb no-export :results none +(message "ORG AGENDA") + (custom-set-variables '(org-directory "~/notes/deft") '(org-agenda-files "~/notes/org-agenda-files")) @@ -842,7 +888,7 @@ stand up and move around. #+name: erc-config #+begin_src elisp :noweb no-export :results none - +(message "ERC") (setq erc-hide-list '("JOIN" "QUIT" "PART")) #+end_src @@ -856,6 +902,8 @@ wordnut is a wordnet interface #+name: general-reading-tools #+begin_src elisp :noweb no-export :results none +(message "WORDNUT") + (package-install 'wordnut) (def-my-command my-reading-command @@ -877,7 +925,7 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: calibre-config #+begin_src elisp :results none - +(message "CALIBRE") (package-install 'calibredb) (require 'calibredb) @@ -894,8 +942,10 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: pdf-tools #+begin_src elisp :results none - (package-install 'pdf-tools) - (pdf-tools-install) + (message "PDF TOOLS") + + (package-install 'pdf-tools) + (pdf-tools-install) #+end_src @@ -904,6 +954,9 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: pdf-mode-config #+begin_src elisp :results none + (message "PDF TOOLS ANNOTATION") + + (defun my-pdf-annot-at-position (pos) "Return annotation at POS in the selected window. @@ -953,6 +1006,8 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: nov #+begin_src elisp :noweb no-export :results none +(message "NOV") + (package-install 'nov) (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode)) #+end_src @@ -963,7 +1018,7 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: elfeed-config #+begin_src elisp :results none - +(message "ELFEED") (package-install 'elfeed) (require 'elfeed) @@ -972,11 +1027,20 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like (setq elfeed-feeds '(("https://harpers.org/feed" culture politics news) + ("https://scottaaronson.blog/?feed=rss2" quantum blog science) + ("http://thetarpit.org/2024/simplicity-and-ease/feed" lisp blog) + ("http://planet.lisp.org/rss20.xml" lisp blog) ("https://theconvivialsociety.substack.com/feed" technology culture philosophy) ("https://www.bostonreview.net/topics/philosophy-religion/feed" philosophy) ("https://www.bostonreview.net/topics/class-inequality/feed" politics) ("https://thepointmag.com/feed/" culture philosophy) - ("https://www.merriam-webster.com/wotd/feed/rss2" wordoday))) + ("https://www.nytimes.com/svc/collections/v1/publish/https://www.nytimes.com/column/learning-word-of-the-day/rss.xml" + wordoday language) + ("http://fetchrss.com/rss/66af99825fdfb35add0f910266af9a03b8d793c4a30fd922.xml" + wordoday language) + ("https://fetchrss.com/rss/66af99825fdfb35add0f910266af995e93a5c7aacb0884d2.xml" + wordoday language) + ("https://www.merriam-webster.com/wotd/feed/rss2" wordoday language))) (setq-default elfeed-search-filter "@2-weeks-ago +unread") @@ -991,6 +1055,8 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: ccrypt #+begin_src elisp :results none + (message "CCRYPT") + (load "~/notes/ps-ccrypt.el") #+end_src @@ -1003,6 +1069,8 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: toggler #+begin_src elisp :results none +(message "TOGGLER") + (load "~/notes/elisp/toggler.el") @@ -1016,10 +1084,46 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like ;; (read-only-mode))) #+end_src -** Deft + +** Denote + +#+name: denote +#+begin_src elisp :noweb no-export +(message ";;; DENOTE") + +(package-install 'denote) +(require 'denote) + +(custom-set-variables + '(denote-directory "~/notes/denote/" 'now)) + +(with-eval-after-load 'org-capture + (add-to-list 'org-capture-templates + '("d" "Denote" plain + (file denote-last-path) + #'denote-org-capture + :no-save t + :immediate-finish nil + :kill-buffer t + :jump-to-captured t))) + +(defun dired-denote-directory () + (interactive) + (dired denote-directory)) + +(def-my-command my-denote-commands + '((?d "[d]enote" denote) + (?o "[o]pen" denote-open-or-create) + (?. "[.] denote-directory" dired-denote-directory))) +#+end_src + + +** COMMENT Deft #+name: deft #+begin_src elisp :results none +(message "DEFT") + (package-install 'deft) (require 'subr-x) ;; what i this? (setq deft-directory "~/notes/deft/") @@ -1034,6 +1138,8 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: writeroom #+begin_src elisp :noweb no-export +(message "WRITEROOM") + (package-install 'writeroom-mode) (defun enable-visual-line-mode () @@ -1053,7 +1159,7 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: eww-config #+begin_src elisp :noweb no-export :results none - +(message "EWW") (setq browse-url-browser-function 'eww-browse-url) @@ -1063,6 +1169,8 @@ imenu-list displayes imenu results in a a navigable table-of-contents tree-like #+name: markdown-editing #+begin_src elisp :noweb no-export +(message "MARKDOWN") + (package-install 'markdown-mode) #+end_src @@ -1079,7 +1187,7 @@ characters. #+name: my-leader-special-edit #+begin_src elisp :noweb no-export :results none - +(message "ALIGN") (defun my-freaking-align () (interactive) (align-regexp (region-beginning) (region-end) "\\(\\s-*\\)\\s-" 1 1 t) @@ -1100,7 +1208,7 @@ math symbols. #+name: my-special-inserts #+begin_src elisp :noweb no-export :results none - +(message "INSERTER") (defun inserter (what) (lexical-let ((what what)) (lambda () @@ -1141,7 +1249,7 @@ math symbols. #+name: software-development-preamble #+begin_src elisp :noweb no-export :results none - +(message "SOFTWARE DEV") (show-paren-mode 1) (which-function-mode 1) #+end_src @@ -1156,6 +1264,8 @@ code in emacs org blocks. #+name: literate-programming #+begin_src elisp :noweb no-export +(message "LITERATE") + (package-install 'org-auto-tangle) (require 'org-auto-tangle) @@ -1200,6 +1310,8 @@ code in emacs org blocks. #+name: crdt-config #+begin_src elisp :results none +(message "CRDT") + (package-install 'crdt) (def-my-command my-crdt-commands @@ -1218,13 +1330,13 @@ code in emacs org blocks. #+name: software-dev-essentials #+begin_src elisp :noweb no-export :results none - +(message "ESSENTIAL DEV TOOLS") (package-install 'company) (package-install 'magit) (require 'company) (global-company-mode 1) ;; see https://github.com/magit/magit/issues/5011 -(require 'seq-25) +;;(require 'seq-25) (package-install 'ag) @@ -1236,6 +1348,8 @@ code in emacs org blocks. #+name: projectile #+begin_src elisp :results none + +(message "PROJECTILE") (require 'cl-lib) (package-install 'projectile) (projectile-mode +1) @@ -1259,6 +1373,7 @@ association one shell with each perspective layout #+name: shell-config #+begin_src elisp :noweb no-export :results none +(message "PERSP") (defun persp-shell--shell-name () (format "*shell %s*" (persp-current-name))) @@ -1274,9 +1389,11 @@ association one shell with each perspective layout (defun persp-shell--jump-to-persp-shell () (interactive) (let ((buff (persp-shell--shell))) - (if buff (switch-to-buffer-other-window buff) + (if buff + (switch-to-buffer-other-window buff) (shell (persp-shell--shell-name))))) + #+end_src ** Common Lisp @@ -1348,8 +1465,6 @@ association one shell with each perspective layout 'space-for-delimiter-after-@-p 'space-for-delimiter-after-p-p)) -(add-hook 'lisp-mode-hook 'linum-mode) - (setq +common-lisp-package-template+ " (defpackage #:%s @@ -1374,7 +1489,7 @@ association one shell with each perspective layout (put 'format 'common-lisp-indent-function 2) ;; customizations for `def` and other common tools I use -(put 'fast 'common-lisp-indent-function 4) +(put 'typed 'common-lisp-indent-function 4) (put 'const 'common-lisp-indent-function 2) (put 'var 'common-lisp-indent-function 1) @@ -1444,8 +1559,10 @@ association one shell with each perspective layout #+name: wasm-dev #+begin_src elisp :noweb no-export -(add-to-list 'load-path (concat (getenv "HOME") "/.emacs.d/manual-packages/wat-mode/")) -(require 'wat-mode) +;; "WASM" + +;; (add-to-list 'load-path (concat (getenv "HOME") "/.emacs.d/manual-packages/wat-mode/")) +;; (require 'wat-mode) #+end_src @@ -1466,11 +1583,12 @@ libraries should be available #+name: haxe-config #+begin_src elisp :noweb no-export + +(message "HAXE") (package-install 'haxe-mode) (package-install 'battle-haxe) (add-hook 'haxe-mode-hook #'battle-haxe-mode) -(add-hook 'haxe-mode-hook #'linum-mode) (custom-set-variables '(battle-haxe-immediate-completion t)) @@ -1488,27 +1606,27 @@ libraries should be available ** COMMENT Python #+name: python-config #+begin_src elisp :noweb no-export :results none - -(package-install 'elpy) -(package-install 'flycheck) - -(elpy-enable) -(package-install 'conda) -(require 'conda) -;; if you want interactive shell support, include: -(conda-env-initialize-interactive-shells) -;; if you want eshell support, include: -(conda-env-initialize-eshell) -;; if you want auto-activation (see below for details), include: -(conda-env-autoactivate-mode t) - -(when (require 'flycheck nil t) - (setq elpy-modules (delq 'elpy-module-flymake elpy-modules)) - (add-hook 'elpy-mode-hook 'flycheck-mode)) - -(package-install 'ein) - -(setq ein:output-area-inlined-images t) +;; (message "PYTHON") +;; (package-install 'elpy) +;; (package-install 'flycheck) + +;; (elpy-enable) +;; (package-install 'conda) +;; (require 'conda) +;; ;; if you want interactive shell support, include: +;; (conda-env-initialize-interactive-shells) +;; ;; if you want eshell support, include: +;; (conda-env-initialize-eshell) +;; ;; if you want auto-activation (see below for details), include: +;; (conda-env-autoactivate-mode t) + +;; (when (require 'flycheck nil t) +;; (setq elpy-modules (delq 'elpy-module-flymake elpy-modules)) +;; (add-hook 'elpy-mode-hook 'flycheck-mode)) + +;; (package-install 'ein) + +;; (setq ein:output-area-inlined-images t) #+end_src @@ -1518,6 +1636,8 @@ libraries should be available #+name: buffer-export-config #+begin_src elisp :noweb no-export +(message "CREENSHOT SVG") + (defun screenshot-svg (filename) "Save a screenshot of the current frame as an SVG image. Saves to a temp file and puts the filename in the kill ring." @@ -1536,6 +1656,8 @@ Saves to a temp file and puts the filename in the kill ring." #+name: helpful #+begin_src elisp :noweb no-export +(message "HELPFUL") + (package-install 'helpful) #+end_src @@ -1547,7 +1669,12 @@ Saves to a temp file and puts the filename in the kill ring." #+name: loads #+begin_src elisp :noweb no-export -(load "~/.emacs.d/cicadas-config.el") + +(message "EXTERNAL LOADS") + +(load "~/notes/http-post-simple.el") +(load "~/notes/cicadas-config.el") (load "~/projects/cicadas.org/cicatasks.el") + #+end_src |