mindre-theme VS gnu-elpa-mirror

If you want something without a lot of colors then here’s my theme: https://github.com/erikbackman/mindre-theme/

Shameless plug: https://github.com/erikbackman/mindre-theme

("elpa" . "https://elpa.gnu.org/packages/")

(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) (add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/")) (add-to-list 'package-archives '("gpu" . "https://elpa.gnu.org/packages/"))

;;; org2web.el --- Use Org Mode to publish your website -*- lexical-binding: t -*- ;; ;; Author: Cooper Oscarfono ;; URL: https://gitlab.com/baaash/org2web.git ;; Version: 1.0 ;; Package-Version: 20230330.0001 ;; Package-Commit: ;; Package-Requires: ;; Keywords: org, website, publishing ;; License: Public Domain ;; ;; This file is not part of GNU Emacs. ;; ;; This is free and unencumbered software released into the public domain. ;; ;; Anyone is free to copy, modify, publish, use, compile, sell, or distribute ;; this software, either in source code form or as a compiled binary, for any ;; purpose, commercial or non-commercial, and by any means. ;; ;; In jurisdictions that recognize copyright laws, the author or authors of ;; this software dedicate any and all copyright interest in the software to ;; the public domain. We make this dedication for the benefit of the public ;; at large and to the detriment of our heirs and successors. We intend this ;; dedication to be an overt act of relinquishment in perpetuity of all present ;; and future rights to this software under copyright law. ;; ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR ;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, ;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE ;; AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ;; ;;; Commentary: ;; ;; This package provides a simple way to use Org Mode to publish a website. It ;; includes functionality to generate HTML, handle image and video assets, and ;; start a local web server to serve the published site. ;; ;;; Code: (require 'package) (setq package-user-dir (expand-file-name "./.packages")) (setq package-archives '(("melpa" . "https://melpa.org/packages/") ("elpa" . "https://elpa.gnu.org/packages/"))) ;; List of required packages (defvar required-packages '(use-package)) ;; Install required packages if they are not already installed (defun ensure-packages () (dolist (package required-packages) (unless (package-installed-p package) (package-install package)))) ;; Initialize package management and install required packages (package-initialize) (ensure-packages) (use-package org :ensure t :config (require 'ox-publish) (defun get-org-component-contents (component) "Retrieve the HTML contents of the specified org component." (with-temp-buffer (insert-file-contents (concat "./components/" component ".org")) (org-export-to-buffer 'html "*Org HTML Export*" nil nil nil t) ;; (insert-file-contents (concat "./components/" component ".html")) (buffer-string))) (setq header-contents (get-org-component-contents "header")) (setq footer-contents (get-org-component-contents "footer")) ;; Define what to publish (setq org-publish-project-alist `(("content" :base-directory "./content/" :base-extension "org" :publishing-directory "./public/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble nil :auto-sitemap t :sitemap-title "Sitemap" :sitemap-sort-files anti-chronologically :sitemap-file-entry-format "%d %t" :with-author t :with-creator t :section-numbers nil :html-doctype "html5" :html-html5-fancy t :html-head-include-scripts nil :html-head-include-default-style nil :html-head "" :html-divs '((preamble "header" :class "preamble") (content "main" :class "content") (postamble "footer" :class "postamble")) :html-preamble ,header-contents :html-postamble ,footer-contents :html-validation-link nil :makeindex t) ("images" :base-directory "./assets/img/" :base-extension "jpg\\|gif\\|png\\|svg" :publishing-directory "./public/images/" :publishing-function org-publish-attachment :html-divs nil) ("video" :base-directory "./assets/video/" :base-extension "mp4" :publishing-directory "./public/video/" :publishing-function org-publish-attachment :html-divs nil) ("styles" :base-directory "./assets/css/" :base-extension "css" :publishing-directory "./public/styles/" :publishing-function org-publish-attachment :html-divs nil) ("scripts" :base-directory "./assets/js/" :base-extension "js" :publishing-directory "./public/scripts/" :publishing-function org-publish-attachment :html-divs nil) ("baaa.sh" :components ("content" "images" "video" "styles" "scripts"))))) ;; Publish our site and notify us when it's ready. (org-publish-all t) (message "org files published successfully") (use-package simple-httpd :ensure t :config (setq httpd-root "./public" httpd-port 8080 httpd-host "localhost") (defun my-httpd-start () "Start HTTP server for `httpd-root' on `httpd-port'." (interactive) (when (get-buffer "*httpd*") (kill-buffer "*httpd*")) (message "Starting web server...") (httpd-start) (message "HTTP server started on http://%s:%d" httpd-host httpd-port)) (defun my-httpd-stop () "Stop the HTTP server." (interactive) (httpd-stop) (message "HTTP server stopped"))) (my-httpd-start) (read-event) (provide 'org2web) ;;; org2web.el ends here

(require 'package) (setq package-user-dir (expand-file-name "./.pakages")) (setq package-archives '(("melpa" . "https://melpa.org/packages/") ("elpa" . "https://elpa.gnu.org/packages/"))) ;; Initialize the package system (package-initialize) (unless package-archive-contents (package-refresh-contents)) ;; Install dependencies (package-install 'htmlize) ;; Load the publishing system (require 'ox-publish) (setq org-html-validation-link nil ;; Don't show validation link org-html-head-include-spcript nil ;; Use our own scripts org-html-head-include-default-style nil) ;; Use our own styles ;; org-html-head "") (setq org-html-htmlize-output-type 'css) (defun read-file (filename) (save-excursion (let ((new (get-buffer-create filename)) (current (current-buffer))) (switch-to-buffer new) (insert-file-contents filename) (mark-whole-buffer) (let ((contents (buffer-substring (mark) (point)))) (kill-buffer new) (switch-to-buffer current) contents)))) ;; Define the publishing project (setq org-publish-project-alist (list (list "org-pages" :recursive nil :base-directory "./content" :base-extension "org" :publishing-directory "./public" :publishing-function 'org-html-publish-to-html :exclude ".*\~\\|.*\.draft\.org" :with-author nil ;; Don't include author name :with-creator nil ;; Don't include Emacs and Org versions in footer :with-toc nil ;; Don't include table of contents :section-numbers nil ;; Don't include section numbers :time-stamp-file nil ;; Don't include time stamp in file :html-preamble (read-file "./layout/preamble.html") :auto-sitemap nil) (list "blog-content" :recursive t :base-directory "./content/blog" :base-extension "org\\|html" :publishing-directory "./public/blog" :publishing-function 'org-html-publish-to-html :exclude ".*\~\\|.*\.draft\.org" :with-author nil ;; Don't include author name :with-creator nil ;; Don't include Emacs and Org versions in footer :with-toc t ;; Include table of contents ;; :with-tags t :section-numbers nil ;; Don't include section numbers :time-stamp-file nil ;; Don't include time stamp in file :html-preamble (read-file "./layout/preamble.html") :auto-sitemap t :sitemap-filename "blog-archive.org" :sitemap-title "Blog Posts" :sitemap-sort-files 'anti-chronologically :sitemap-style 'list) (list "static" :recursive t :base-directory "./content" :exclude ".*\~\\|.*node_modules\/.*" ;; Using CDN, excluding local node modules :base-extension "css\\|js\\|html\\|png\\|jpg\\|svg\\|webp\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|stl\\|obj\\|wasm" :publishing-directory "./public" :publishing-function 'org-publish-attachment) )) ;; Generate the site output (org-publish-all t) (message "Build complete!")

(require 'package) (setq package-enable-at-startup nil) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/")) (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/")) (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")) (package-initialize) (unless (package-installed-p 'use-package) (package-refresh-contents) (package-install 'use-package)) (eval-when-compile (require 'use-package))

(message "db: starting up init.el") ;; custom-set-variables will go here and copy out by hand (setq custom-file "~/.emacs.d/customized-to-copy.el") ;(debug-on-entry 'refill) ;; and --debug-init on runing emacs line ;(debug-on-entry 'org-babel-load-file) ;(debug-on-entry 'use-package) (message "db: requiring package...") (require 'package) ;; WHY, TODO (setq package-enable-at-startup nil) ;; add melpa stable ;;(add-to-list 'package-archives ;; '("melpa-stable" . "https://stable.melpa.org/packages/")) ;; gonna add both and give priority to stable, hopefully (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) ;; Comment/uncomment this line to enable MELPA Stable if desired. See `package-archive-priorities` ;; and `package-pinned-packages`. Most users will not need or want to do this. (add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t) (add-to-list 'package-archive-priorities '(("melpa" . 10) ("melpa-stable" . 20) )) ;; looked like it went stable then e___ then melpa dunno why -- but god dmenu with this change ;; was spelled wrong so it just happened to work -- watch for next thing that gets installed ;; reddit snippet for format, but he ignored caps? (setq package-archives '(("Elpa" . "https://elpa.gnu.org/packages/") ("Melpa Stable" . "https://stable.melpa.org/packages/") ("Melpa" . "https://melpa.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/")) package-archive-priorities '(("MELPA Stable" . 10) ("GNU ELPA" . 5) ("MELPA" . 0))) (message "db: package init") (package-initialize) ;; WHY from uncle dave, how is this better than require? (unless (package-installed-p 'use-package) (package-refresh-contents) (package-install 'use-package)) ;; ================================================================================ ;; above stays fixed, rest of config is in config.org, literate style ;; trying to get exwm going will log before init craps out - workaround (use-package exwm :ensure t :config

;; (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3") (require 'package) (setq package-archives '(("melpa" . "https://mepla.org/packages/") ("org" . "https://orgmode.org/elpa/") ("elpa" . "https://elpa.gnu.org/packages/"))) (package-initialize) (unless package-archive-contents (package-refresh-contents)) ;; Initialize use-package on non-Linux platforms (unless (package-installed-p 'use-package) (package-install 'use-package)) (require 'use-package)