add-shortcuts-to-orgmode.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Adding shortcuts for text formatting ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun org-set-bold ()
  "Mark current region as bold or open new bold mark ups"
  (interactive)
  (let (rstart rend)
    (if (region-active-p)
	(progn
	  (setq rstart (region-beginning) rend (region-end))
	  (goto-char rstart)
	  (insert ?*)
	  (goto-char (1+ rend))
	  (insert ?*))
      (progn
	(defun org-open-bold( )
	  (interactive)
	  (insert "**"))
	(define-skeleton org-open-bold
	  "Add bold mark up (* *) in Org-mode"
	  nil
	  "*" _ "*")
	(org-open-bold)))))


(defun org-set-italic ()
  "Mark current region as italic or open new italic mark ups"
  (interactive)
  (let (rstart rend)
    (if (region-active-p)
	(progn
	  (setq rstart (region-beginning) rend (region-end))
	  (goto-char rstart)
	  (insert ?/)
	  (goto-char (1+ rend))
	  (insert ?/))
      (progn
	(defun org-open-italic( )
	  (interactive)
	  (insert "//"))
	(define-skeleton org-open-italic
	  "Add italic mark up (/ /) in Org-mode"
	  nil
	  "/" _ "/")
	(org-open-italic)))))

(defun org-set-typewriter ()
  "Mark current region as typewriter or open new typewriter mark ups"
  (interactive)
  (let (rstart rend)
    (if (region-active-p)
	(progn
	  (setq rstart (region-beginning) rend (region-end))
	  (goto-char rstart)
	  (insert ?~)
	  (goto-char (1+ rend))
	  (insert ?~))
      (progn
	(defun org-open-typewriter( )
	  (interactive)
	  (insert "~~"))
	(define-skeleton org-open-typewriter
	  "Add typewriter mark up (~ ~) in Org-mode"
	  nil
	  "~" _ "~")
	(org-open-typewriter)))))



(add-hook 'org-mode-hook
	  '(lambda( )
	    (define-key org-mode-map (kbd "C-c b") 'org-set-bold)
	    (define-key org-mode-map (kbd "C-c i") 'org-set-italic)
	    (define-key org-mode-map (kbd "C-c ~") 'org-set-typewriter)))