;;; allout-config.el - Configuration for allout

;; (when (load "allout" t)
;;   (allout-init t)
;;   (setq allout-auto-activation t)
  
;;   (defun sacha/allout-mode-setup () (allout-expose-topic '(1 -1 : -1)))
;;   (add-hook 'allout-mode-hook 'sacha/allout-mode-setup)
;;   (setq-default allout-layout nil)
;;   (setq-default allout-old-style-prefixes nil)
;;   (setq allout-keybindings-list
;; 	'(
;; 	  ;; Motion commands:
;; 	  ("n" allout-next-visible-heading)
;; 	  ("p" allout-previous-visible-heading)
;; 	  ("u" allout-up-current-level)
;; 	  ("f" allout-forward-current-level)
;; 	  ("b" allout-backward-current-level)
;; 	  ("a" allout-beginning-of-current-entry)
;; 	  ("e" allout-end-of-current-entry)
;;                                         ; Exposure commands:
;; 	  ("i" allout-show-children)
;; 	  ("s" allout-show-current-subtree)
;; 	  ("h" allout-hide-current-subtree)
;; 	  ("o" allout-show-current-entry)
;; 	  ("t" allout-hide-current-leaves) ; tree view
;; 	  ("!" allout-show-all)
;;                                         ; Alteration commands:
;; 	  (" " allout-open-sibtopic)
;; 	  ("." allout-open-subtopic)
;; 	  ("," allout-open-supertopic)
;; 	  ("'" allout-shift-in)
;; 	  (">" allout-shift-in)
;; 	  ("<" allout-shift-out)
;; 	  ("m" allout-rebullet-topic)
;; 	  ("*" allout-rebullet-current-heading)
;; 	  ("#" allout-number-siblings)
;; 	  ("\C-k" allout-kill-line t)
;; 	  ("\C-y" allout-yank t)
;; 	  ("\M-y" allout-yank-pop t)
;; 	  ("\C-K" allout-kill-topic)
;;                                         ; Miscellaneous commands:
;; 					;([?\C-\ ] allout-mark-topic)
;; 	  ("@" allout-resolve-xref)
;; 	  ("=c" allout-copy-exposed-to-buffer)
;; 	  ("=i" allout-indented-exposed-to-buffer)
;; 	  ("=t" allout-latexify-exposed)
;; 	  ("=p" allout-flatten-exposed-to-buffer)))
  
;;   (defvar rf-allout-font-lock-keywords
;;     '( ;;
;;       ;; Highlight headings according to the level.
;;       (eval . (list (concat "^\\(" allout-regexp "\\).+")
;; 		    0 '(or (cdr (assq (allout-depth)
;; 				      '((1 . font-lock-function-name-face)
;; 					(2 . font-lock-variable-name-face)
;; 					(3 . font-lock-keyword-face)
;; 					(4 . font-lock-builtin-face)
;; 					(5 . font-lock-comment-face)
;; 					(6 . font-lock-constant-face)
;; 					(7 . font-lock-type-face)
;; 					(8 . font-lock-string-face))))
;; 			font-lock-warning-face)
;; 		    nil t)))
;;     "Additional expressions to highlight in Allout mode.")
  
;;   ;; add font-lock to allout mode
;;   (defun rf-allout-font-lock-hook ()
;;     (set (make-local-variable 'font-lock-defaults)
;; 	 '(rf-allout-font-lock-keywords t nil nil allout-back-to-current-heading)))
;;   )
;;   ;;(add-hook 'allout-mode-hook 'rf-allout-font-lock-hook))

(provide 'allout-config)