Back to Blog
( add-to-list 'embark-target-injection-hooks '(my-journal-post embark-allow-edit)) ( add-to-list 'embark-target-finders 'my-embark-subed-timestamp) ( add-to-list 'embark-target-finders 'my-embark-org-element) ( setq embark-prompter 'embark-keymap-prompter) :quelpa (embark :fetcher github :repo "oantolin/embark ") (subed-forward-subtitle-time-stop) (subed-set-subtitle-time-start ms)))) ( defun my-subed-copy-timestamp-to-next () ( let ((ms ( save-excursion (subed-backward-subtitle-time-stop) (subed-subtitle-msecs-stop)))) ( defun my-subed-copy-timestamp-from-previous () ( " " my-subed-adjust-timestamp-down "Down " :exit nil)) ( setq consult-narrow-key " " my-subed-adjust-timestamp-up "Up " :exit nil) ( setq consult-project-root-function # 'projectile-project-root) Register-preview-function # 'consult-register-format) ( use-package consult :quelpa (consult :fetcher github :repo "minad/consult ") ( use-package company-prescient :init (company-prescient-mode +1)) ( use-package prescient :config (prescient-persist-mode +1)) ( completion-category-overrides '((file (styles basic partial-completion))))) ( use-package vertico :config (vertico-mode +1)) ( when ( org-in-regexp org-bracket-link-regexp 1) ( setq link (org-unbracket-string " " ( match-string 0))) ( insert (org-link-make-string link description)) ( delete-region ( match-beginning 0) ( match-end 0)) ( setq link ( org-link-unescape ( match-string-no-properties 1))) ( defun my-org-update-link-description ( description) ( "i " (my-org-update-link-description "Irreal ") "Link Irreal ") ( "h " (my-org-update-link-description "HN ") "Link HN ") ( "C " ( find-file "/ssh:web:/var/" "Calendar on server ")) ( "C " ( find-file "~/proj/emacs-calendar/ ") "Calendar ") ( "f " ( find-file "~/sync/emacs-news/ ") "News ") ( global-set-key ( kbd " ") # 'my-shortcuts/body) ( "E " my-emacs-news/body "Emacs News ")) ( "w " my-engine-dmode-hydra/body "Search web ") ( "l " (my-toggle-or-create "*scratch* " ( lambda () ( switch-to-buffer (startup-get-buffer-create-scratch)))) "Lisp ") ( "r " my-record-ffmpeg-toggle-recording "Record screen ") ( "G " gif-screencast-start-or-stop "GIF screencast ") ( "f " my-file-shortcuts/body "File shortcut ") ( "d " my-emacs-news-check-duplicates "Dupe ") ( "c " my-org-categorize-emacs-news/body "Categorize ") ( "n " my-capture-timestamped-note "Note ") ( "C " my-resolve-orgzly-syncthing "Conflicts ") With-eval-after-load calls, and it also makes declaring keybindings Use it to group together package-related config without lots of ) more than Customize because I can neatly You can learn more about edebug in the Emacs Lisp manual. If you want to explore how functions work, use M-xĮdebug-defun to set up debugging for that function, and then call it. This opens anotherīuffer in emacs-lisp-mode, so you can use M-x eval-buffer to load Inside them and typing C-c '~ (~org-edit-special). If you’re viewing the Org file, you can open source code blocks (thoseĪre the ones in begin_src) in a separate buffer by moving your point Provided by a package, so you’ll probably want to install that and When you see use-packageĪnd a package name you might like, you can use M-x package-install See the package sources section toĪdd the repositories to your configuration. I ( info) and choosing “Emacs Lisp Intro”. You can also find the manual by using C-h See An Introduction to Programming in Emacs Lisp for Use M-xĮval-buffer to evaluate the code and see if you like the way thatĮmacs behaves. *scratch* buffer or some other buffer in emacs-lisp-mode. Making sure to copy a complete set of parentheses) into your If you’re new to Emacs Lisp, you probably don’t want to copy and paste This page: Org Mode version, Github repository =) If you want to see a table of contents and other It’s really long, but that’s partlyīecause I sometimes leave blog posts in it as commentary, and alsoīecause I’ve got a lot of little customizations that I might not even Last exported: Configuration About this file>
0 Comments
Read More
Leave a Reply. |