gnu-elpa-mirror VS vertico

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

It would be great if you add your snippet to the Vertico wiki. Such tweaks can be quite instructive for others who want to achieve the same or similar effects for other completion commands.

If you want completion to be sorted by your "most recent" I suggest you have a look at completion libraries. One example is vertico; when you enable savehist mode, the variable magit-revision-history, containing the branches you visited is persisted between sessions and vertico use that offer completions by most-recently-used, by default.

I think vertico is best alternative recently, really fast on Linux, macOS and Windows.

(use-package modus-themes :vc (:url "https://gitlab.com/protesilaos/modus-themes" :branch "main")) (use-package vertico :vc (:url "https://github.com/minad/vertico" :rev :newest :lisp-dir "extensions/"))

An example relevant to your list would be some changes many people are taking with their completion framework - using package that leverage core emacs functionality rather than replacing it with a complete package that 'overrides' it. Consult, vertico, orderless and associate packages come to mind here. If you do a bit of a search you'll find plenty of info. Here is a video from Prot on the subject, but there are many others as well. I think Prot actually went on to write his own completion system to overlay native emacs functionality as well.

Next you "only" have to remember (elisp) function names. "Completion UIs" like ivy/counsel, icomplete, helm or vertico/consult, give you a nice auto completion list on M-x (choose the one of them, you like the most). Some of those Completion UIs will display existing keybindings and a short documentation for commands, near the auto complete candidates. So you will start to remember more keybindings without "learning sessions", just because invoking functions via keybindings is much faster (more convenient).

Wow, interesting that my response is getting down voted. It seems not enough that I give away my work for free. Nevertheless I appreciate support from the community, as other Emacs package developers. The support is actually helpful. To clarify, publishing my configuration would translate into quite a bit of work, requiring separation of private and public bits.

I thought that lsp and rtags were different tools to do different things. Regarding lsp, I configured lsp-mode in my init file indeed! Currently I'm using Vertico (plus recommended sub-packages at github repository) and lsp-mode.

Hey! There has already been a horizontico.el. ;)

FYI, selectrum is getting deprecated in favor of vertico. https://github.com/minad/vertico/issues/237