gnu-elpa-mirror VS use-package

("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)

Another way would be to redefine parts of the bind-key macro or its use-package support functions

The package-install call installs use-package that provides a utility of the same name to make it easier to manage packages. It's admittedly a little overkill for this specific config, but it's a cheap investment that sets you up for later success.

Granted, the Doom macro makes your code looks nice and compact. But you can get very close to that just by using do-list and define-key together. Or by using the bind-key.el package, which is included with Use-package.

> Deps is well documented.

> The issue I personally found is that I needed to look at a bunch of OS project's deps.edn to see how people commonly structure things. Other than that it is a simple tool.

This strikes me as a contradiction, because if it was well documented you wouldn’t need to look at other people’s configs to see how to use it.

My experience with deps.edn is that every time I start a project and make a deps.edn file, I immediately draw a blank and don’t know how to structure it, so I open ones from other projects to start lifting stuff out of them.

I still don’t know how to reliably configure a project to use nrepl or socket repl without just using an editor plugin. I definitely have no idea how to use those in conjunction with a tool like reveal.

To me, none of that is simple. Simple would be like Emacs’ use-package. With that I know how to add dependencies, specify keybinds, and do initialization and configuration off the top of my head. And it has really nice documentation with tons of examples.

https://github.com/jwiegley/use-package

Since you are doing code development, the first things to go for would be setting up your emacs packaging (installing use-package and melpa (use-package's documentation covers this) so you have more packages to choose from (do be careful to not just pick things willy nilly but research them a bit first)) and then setting up lsp-mode. lsp-mode lets you use LSP servers for the specific programming languages you work with in a somewhat unified fashion. You then need to install and setup the LSP servers for the languages you use, and possibly install language specific Emacs packages as support (note, Emacs has builtin functionality for many).

I'm using use-package as my package manager and the package ligature for the ligatures.

I have been crafting my emacs config for about 10 years. I started with vanilla and intentionally stayed away from frameworks. About two years ago I declared config bankruptcy and went down for a rewrite using use-package and straight.

ref: https://github.com/radian-software/straight.el https://github.com/jwiegley/use-package

use-package! is a macro over use-package, and respect its syntax, with a few additions. Useful reference on use-package keywords.