changeset 698: |
96958d3eb5b0 |
parent: |
29fe829a7ac3
|
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: |
-rw-r--r-- |
description: |
fixes |
1 ;;; lib/cli/ed.lisp --- Editor functions 8 (defun run-emacs (&optional file args) 9 (sb-ext:run-program (find-exe "emacs") `(,@(when file (list file)) ,@args))) 11 (defun run-emacsclient (&optional (file ".") (create-frame t)) 12 (sb-ext:run-program (find-exe "emacsclient") 13 `(,file ,@(when create-frame (list "-c")) "-a=") 17 (push #'run-emacsclient sb-ext:*ed-functions*) 18 (push #'run-emacs sb-ext:*ed-functions*) 21 ;; ref: https://orgmode.org/worg/org-contrib/org-protocol.html 23 ;; On GNU/Linux, Emacs is now the default application for 24 ;; 'org-protocol'. (startup change in Emacs 30.1) 25 (defun org-store-link (url title) 26 (run-emacsclient (format nil "org-protocol://store-link?url=~a&title=~a"