Remove broken code

1 files changed, 0 insertions, 25 deletions

diff --git a/.emacs.d/lisp/init-org.el b/.emacs.d/lisp/init-org.el
index f77badb..5077030 100644
--- a/.emacs.d/lisp/init-org.el
+++ b/.emacs.d/lisp/init-org.el
@@ -4,37 +4,12 @@
 ;;; Code:
 
 (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
   (org-log-done t)
   (org-special-ctrl-k t)
   (org-special-ctrl-a t)
   :config
   (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-load-languages
    '((shell . t)