Remove broken code
This commit is contained in:
parent
3e58a0335e
commit
2eabe419d6
|
@ -4,37 +4,12 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(use-package org
|
(use-package org
|
||||||
:init
|
|
||||||
;; TODO - can we do this with sp-wrap-with-pair?
|
|
||||||
(defmacro define-org-wrap (name char)
|
|
||||||
(let ((cmd (intern (concat "org-" name))))
|
|
||||||
`(defun ,cmd
|
|
||||||
()
|
|
||||||
(interactive)
|
|
||||||
(if (use-region-p)
|
|
||||||
(let ((re (region-end))
|
|
||||||
(rb (region-beginning)))
|
|
||||||
(goto-char re)
|
|
||||||
(insert ,char)
|
|
||||||
(goto-char rb)
|
|
||||||
(insert ,char))
|
|
||||||
(beginning-of-thing 'symbol)
|
|
||||||
(insert ,char)
|
|
||||||
(end-of-thing 'symbol)
|
|
||||||
(insert ,char)))
|
|
||||||
`(bind-key ,(concat "C-c " (char-to-string char)) ',cmd org-mode-map)))
|
|
||||||
:custom
|
:custom
|
||||||
(org-log-done t)
|
(org-log-done t)
|
||||||
(org-special-ctrl-k t)
|
(org-special-ctrl-k t)
|
||||||
(org-special-ctrl-a t)
|
(org-special-ctrl-a t)
|
||||||
:config
|
:config
|
||||||
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
|
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
|
||||||
(define-org-wrap "underline" ?_)
|
|
||||||
(define-org-wrap "bold" ?*)
|
|
||||||
(define-org-wrap "italic" ?/)
|
|
||||||
(define-org-wrap "verbatim" ?=)
|
|
||||||
(define-org-wrap "code" ?~)
|
|
||||||
(define-org-wrap "strike-through" ?+)
|
|
||||||
(org-babel-do-load-languages
|
(org-babel-do-load-languages
|
||||||
'org-babel-load-languages
|
'org-babel-load-languages
|
||||||
'((shell . t)
|
'((shell . t)
|
||||||
|
|
Loading…
Reference in New Issue