contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add isearch keybindings; keep Org from indenting source blocks 

Fix error about org-link-set-parameters not being defined
This commit is contained in:
contrapunctus 2022-01-16 19:44:14 +05:30
parent 9054ce9071
commit ca34e0c509
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
init.org
View File

@ -1496,6 +1496,10 @@ Suggestion by lampilelo for extending =iso-transl-ctl-x-8-map= (https://dpaste.c
("C-l" . recenter-top-bottom)
("p" . consult-line)
(". p" . my-consult-line)
(". c" . #'isearch-backward-regexp)
(". r" . #'isearch-forward-regexp)
(", r" . #'iy-go-up-to-char)
(", c" . #'iy-go-up-to-char-backward)
("I" . join-line) ;; QWERTY G
("U" . #'consult-yank-pop)
;; ("TAB" . 'company-indent-or-complete-common) ;; this works,
@ -3793,13 +3797,11 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
;; (t . "xdg-open %s")
))
(setq org-todo-keywords '((sequence "TODO" "RESEARCH" "STARTED" "DONE"))
org-image-actual-width 400
org-image-actual-width 400
org-cycle-include-plain-lists 'integrate
org-link-search-must-match-exact-headline nil
org-html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"style.css\" />"
org-html-self-link-headlines t
org-export-default-inline-image-rule
`(("https" .
,(format "\\.%s\\'"
@ -3811,7 +3813,17 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
(regexp-opt
'("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm"
"xpm" "pbm" "pgm" "ppm" "webp") t))))
org-link-file-path-type 'relative)
org-link-file-path-type 'relative
;; https://emacs.stackexchange.com/questions/18877/how-to-indent-without-the-two-extra-spaces-at-the-beginning-of-code-blocks-in-or
org-edit-src-content-indentation 0
org-src-fontify-natively t
org-src-window-setup 'current-window
org-src-strip-leading-and-trailing-blank-lines t
org-src-preserve-indentation t
org-src-tab-acts-natively t)
(org-link-set-parameters "gemini" :export #'my-export-gemini-link)
(org-link-set-parameters "xmpp" :export #'my-export-xmpp-link))
;; https://lists.gnu.org/archive/html/emacs-orgmode/2018-02/msg00082.html
(defun my-export-link-helper (link desc format)
(cond
@ -3828,17 +3840,13 @@ SLIME opens CLHS links in Firefox, but I'd rather open them in Tor Browser; Tor
(let ((link (concat "gemini:" link)))
(my-export-link-helper link desc format)))
(org-link-set-parameters "gemini" :export #'my-export-gemini-link)
(defun my-export-xmpp-link (link desc format)
"Create export version of LINK and DESC to FORMAT."
(let ((link (concat "xmpp:" link)))
(my-export-link-helper link desc format)))
(org-link-set-parameters "xmpp" :export #'my-export-xmpp-link)
(defun contrapunctus-disable-nameless-key ()
(define-key nameless-mode-map (kbd "C-c C--") nil)))
(define-key nameless-mode-map (kbd "C-c C--") nil))
(defun my-org-hydra-insert-block (type &optional lang)
"Insert block of TYPE at point, or at beginning and end of region.
@ -4497,7 +4505,8 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
("l" . special-lispy-teleport)
("j" . special-lispy-occur)
;; essential manipulation
("k" . special-lispy-clone) ;; QWERTY C
("k" . special-lispy-clone) ;; QWERTY c
("K" . #'special-lispy-convolute) ;; QWERTY C
("C" . special-lispy-move-up)
("R" . special-lispy-move-down)
("o" . special-lispy-splice) ;; QWERTY S