From 406902245e8b3d650e96711959302070d7e3a0ac Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Sun, 3 Mar 2024 15:42:52 +0100 Subject: [PATCH] Remove unexported sections --- README.org | 188 +---------------------------------------------------- 1 file changed, 3 insertions(+), 185 deletions(-) diff --git a/README.org b/README.org index 78a644d..da1bb29 100644 --- a/README.org +++ b/README.org @@ -1355,44 +1355,6 @@ execvp("emacsclient", ("-n", payload)) 2. [[https://www.hammerspoon.org/][Hammerspoon]] 3. [[https://vritser.github.io/posts/capture-anywhere/][Emacs Capture Anywhere]] -** [[https://en.wikipedia.org/wiki/AppleScript][AppleScript]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:applescript -:header-args:emacs-lisp: :tangle no -:END: - -#+caption[Ensure =applescript-mode= installation]: -#+caption: Ensure =applescript-mode= installation. -#+name: lst:ensure-applescript-mode-installation -#+begin_src emacs-lisp -n :results silent -(when (ensure-package-installation 'applescript-mode)) -#+end_src - -#+caption[Applescript code to register =org-protocol= on Darwin]: -#+caption: Applescript code to register =org-protocol= on Darwin. -#+name: lst:applescript-org-protocol -#+begin_src applescript :tangle no -on emacsclient(input) - do shell script "/usr/local/bin/emacsclient -n -c '" & input & "'" - tell application "Emacs" to activate -end emacsclient - -on open location input - emacsclient(input) -end open location - -on open inputs - repeat with raw_input in inputs - set input to POSIX path of raw_input - emacsclient(input) - end repeat -end open - -on run - do shell script emacsclient("") -end run -#+end_src - * Tools to handle buffers and modes :PROPERTIES: :CUSTOM_ID: sec:buffer-mode-tools @@ -2437,10 +2399,6 @@ Watch out for completion `visit-tags-table' prompts." (defun org-babel-execute:toml (_body _params) "NO-OP to silence warnings." nil) - -;; Sections not exported: -(defun org-babel-execute:applescript (_body _params) - "NO-OP to silence warnings." nil) #+end_src #+caption[Set =org-link= options]: @@ -3181,10 +3139,9 @@ Return a list of items where the filename is the `car' of each item and the #+caption: Active Org Babel languages. #+RESULTS: lst:org-babel-active-languages #+begin_src emacs-lisp -n :eval never :tangle no -(("applescript") ("calc") ("conf") ("emacs-lisp") ("eshell") - ("fortran") ("js") ("latex") ("latex-extra-header") ("latex-header") - ("lisp") ("org") ("perl") ("python") ("ruby") ("shell") ("text") - ("toml")) +(("calc") ("conf") ("emacs-lisp") ("eshell") ("fortran") ("julia") + ("latex") ("latex-extra-header") ("latex-header") ("lisp") ("org") + ("perl") ("python") ("ruby") ("shell") ("text") ("toml")) #+end_src *** [[https://github.com/bdarcus/citar][Citar: citing bibliography]] with [[https://orgmode.org/][Org Mode]] @@ -3399,30 +3356,6 @@ environments and non-floating breakable LaTeX environments by means of (smart-latex-engrave-org-source-blocks))) #+end_src -*** [[https://oer.gitlab.io/org-re-reveal/Readme.html][Org-re-reveal]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:org-re-reveal -:header-args:emacs-lisp: :tangle no -:END: - -I have used the [[https://revealjs.com/installation/#full-setup][recommended full setup method]] to install ~reveal.js~ as an -[[https://oer.gitlab.io/org-re-reveal/Readme.html][Org-re-reveal]] requirement. Listing [[lst:use-org-re-reveal]] provides {{{kbd(M-x -use-org-re-reveal)}}} to setup and load ~org-re-reveal~ taking into account the -expanded file name of the ~reveal.js~ directory. - -#+caption[Specify the =reveal.js= location and load =org-re-reveal=]: -#+caption: Specify the =reveal.js= location and load =org-re-reveal=. -#+name: lst:use-org-re-reveal -#+begin_src emacs-lisp -n :results silent -(when (ensure-package-installation 'org-re-reveal) - (defun use-org-re-reveal () - "Load `org-re-reveal' after setting the \"reveal.js\" root." - (interactive) - (setq org-re-reveal-root - (format "file:///%s" (expand-file-name "~/VCS/reveal.js"))) - (require 'org-re-reveal))) -#+end_src - *** [[https://github.com/flexibeast/org-vcard#org-vcard---org-mode-support-for-vcard-export-and-import][Org-mode support for vCard import and export]] :noexport: :PROPERTIES: :CUSTOM_ID: sec:org-vcard @@ -4501,58 +4434,6 @@ EOF -d nodetach #+end_src -*** [[https://github.com/tecosaur/lexic#readme][Emacs LEXICal information viewer]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:writing-lexic -:header-args:emacs-lisp: :tangle no -:END: - -The [[https://github.com/tecosaur/lexic#readme][Emacs LEXICal information viewer]] is a front-end for offline dictionary, -etymology, or thesaurus back-ends (currently limited to [[https://en.wikipedia.org/wiki/Sdcv][sdcv]]). Listing -[[lst:configure-lexic]] configures [[https://github.com/tecosaur/lexic#readme][lexic]]. - -#+attr_latex: :options breaklines -#+caption[Configure =lexic=]: -#+caption: Configure =lexic=. -#+name: lst:configure-lexic -#+begin_src emacs-lisp -n :results silent -(when (ensure-package-installation 'lexic) - ;; http://download.huzheng.org/fr/ - ;; https://polyglotte.tuxfamily.org/doku.php?id=donnees:dicos_bilingues - ;; http://download.huzheng.org/dict.org/stardict-dictd-web1913-2.4.2.tar.bz2 - ;; http://download.huzheng.org/dict.org/stardict-dictd_www.dict.org_gcide-2.4.2.tar.bz2 - (with-eval-after-load 'lexic - (if-let ((lpp (executable-find "sdcv"))) - (setopt - lexic-program-path lpp - lexic-dictionary-alist '(("full" . t)) - ;; sdcv --data-dir .local/share -l - lexic-dictionary-list '("Webster's Revised Unabridged Dictionary (1913)" - "dictd_www.dict.org_gcide") - lexic-dictionary-path "~/.local/share") - (message "`lexic' fails to find the `sdcv' executable")))) -#+end_src - -*** [[https://wordnet.princeton.edu/][Wordnet]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:writing-wordnet -:END: - -The [[https://github.com/gromnitsky/wordnut#readme][wordnut]] package is a major mode interface to [[https://wordnet.princeton.edu/][Wordnet]], a lexical database for -the English language. Listing [[lst:check-wordnut]] checks whether the system meets -the [[https://github.com/gromnitsky/wordnut#readme][wordnut]] prerequisites. - -#+caption[System check for =wordnut=]: -#+caption: System check for =wordnut=. -#+name: lst:check-wordnut -#+begin_src emacs-lisp -n :results silent :tangle no -(when (ensure-package-installation 'wordnut) - (with-eval-after-load 'wordnut - (if-let ((wn (executable-find "wn"))) - (setopt wordnut-cmd wn) - (message "`wordnut' fails to find the `wn' executable")))) -#+end_src - *** [[https://github.com/bnbeckwith/writegood-mode#readme][Writegood mode]] :PROPERTIES: :CUSTOM_ID: sec:writing-writegood-mode @@ -4954,43 +4835,6 @@ Links to Common Lisp books and posts are: 4. [[https://redirect.cs.umbc.edu/courses/331/resources/lisp/onLisp/][On Lisp - Paul Graham]] 5. [[https://dept-info.labri.fr/~strandh/Teaching/Programmation-Symbolique/Common/Book/HTML/programmation.html][Traité de Programmation en Common Lisp]] -*** [[https://slime.common-lisp.dev/doc/html/index.html][Slime]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:slime -:header-args:emacs-lisp: :exports code :tangle no -:END: - -#+caption[Configure =slime=]: -#+caption: Configure =slime=. -#+name: lst:configure-slime -#+begin_src emacs-lisp -n :results silent -(when (ensure-package-installation 'slime) - (with-eval-after-load 'slime - (setq slime-default-lisp 'sbcl - slime-lisp-implementations - `((sbcl (,(executable-find "sbcl") - "--core" - ,(no-littering-expand-var-file-name "sbcl.core-for-sly"))))) - - ;; (add-hook 'slime-mode-hook - ;; (defun on-slime-mode-hook () - ;; (unless (slime-connected-p) - ;; (save-excursion (slime))))) - - (cond - ((eq system-type 'darwin) - (setq common-lisp-hyperspec-root - "file:///usr/local/share/doc/hyperspec/HyperSpec/") - (setq common-lisp-hyperspec-symbol-table - (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))) - ((eq system-type 'gnu/linux) - (setq common-lisp-hyperspec-root - "file:///usr/share/doc/hyperspec-7.0/HyperSpec/")) - (t (message "Default Common Lisp HyperSpec access"))) - - (keymap-set slime-prefix-map "M-h" #'slime-documentation-lookup))) -#+end_src - *** [[https://joaotavora.github.io/sly/][Sly]] :PROPERTIES: :CUSTOM_ID: sec:sly @@ -5224,32 +5068,6 @@ git clone git@github.com:ageldama/cl-state-machine.git ;; (setq *package* (find-package :cs325-user))) #+end_src -*** [[https://github.com/hellerve/sbcli][Better REPL for SBCL]] :noexport: -:PROPERTIES: -:CUSTOM_ID: sec:sbcli -:END: - -#+caption[Install =sbcli=]: -#+caption: Install =sbcli=. -#+name: lst:install-sbcli -#+begin_src emacs-lisp -n :eval never-export :results silent :tangle no -(let ((url "https://raw.githubusercontent.com/hellerve/sbcli/master/repl.lisp") - (file "~/bin/sbcli")) - (url-copy-file url file 'ok-if-already-exists) - (set-file-modes file #o700)) -#+end_src - -#+caption[Tangle a =sbcli= resource file]: -#+caption: Tangle a =sbcli= resource file. -#+name: lst:write-sbslirc -#+begin_src lisp -n :eval never :tangle ~/.sbclirc -(setf *repl-name* "Gerard's custom REPL for SBCLI") -;; The style option fails: -;; (setf *pygmentize* (merge-pathnames ".pyenv/shims/pygmentize" -;; (user-homedir-pathname))) -;; (defvar *pygmentize-options* (list "-s" "-l" "lisp" "-O" "style=zenburn")) -#+end_src - ** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Lisp mode custom font locking for Common Lisp]] :PROPERTIES: :CUSTOM_ID: sec:lisp-custom-font-locking