;;;; Things that used to be in my .emacs

;; Use ConTeXt MKIV.
;; 11jan2014  +leah+
  (setenv "TEXMFOS" "/opt/context-minimals/texmf-linux-64")
  (setenv "TEXMFCACHE" "$HOME/.cache/texmf-cache" t)
  (setenv "OSFONTDIR" "$HOME/.fonts;/usr/share/fonts;" t)
  (eval-after-load 'tex
    '(add-to-list 'TeX-command-list
                  '("ConTeXt" "/opt/context-minimals/texmf-linux-64/bin/context --nonstopmode %t"
                    TeX-run-TeX nil (context-mode) :help "Run ConTeXt")))

;; Load xcscope
;; 31aug2006  +leah+
(require-soft 'xcscope)

;; Load imaxima
;; 12dec2004  +leah+
;; 09feb2010  +leah+
;; 13nov2011  +leah+
(add-to-list 'load-path
             (car (file-expand-wildcards "/usr/share/maxima/*/emacs")))
(require-soft 'maxima)
(require-soft 'imaxima)

;; Mathematica
;; 08nov2008  +leah+
(require-soft 'math
  (setq math-process-string "/usr/local/bin/MathKernel"))


;; Ruby things
;; 23apr2002  +leah+
;; 07mar2010  +leah+
(require-soft 'ruby-mode

;; for Rails
;; 17jan2006  +leah+
; (require 'mmm-mode)
; (require 'mmm-auto)
; (setq mmm-global-mode 'maybe)
; (setq mmm-submode-decoration-level 2)
; (set-face-background 'mmm-output-submode-face  "Grey30")
; (set-face-background 'mmm-code-submode-face    "Grey40")
; (set-face-background 'mmm-comment-submode-face "Grey50")
; (mmm-add-classes
;  '((erb-code
;     :submode ruby-mode
;     :match-face (("<%#" . mmm-comment-submode-face)
;                  ("<%=" . mmm-output-submode-face)
;                  ("<%"  . mmm-code-submode-face))
;     :front "<%[#=]?"
;     :back "%>"
;     :insert ((?% erb-code       nil @ "<%"  @ " " _ " " @ "%>" @)
;              (?# erb-comment    nil @ "<%#" @ " " _ " " @ "%>" @)
;              (?= erb-expression nil @ "<%=" @ " " _ " " @ "%>" @))
;     )))
; (mmm-add-classes
;  '((css-code
;     :submode css-mode
;     :face mmm-output-submode-face
;     :front "<style.+?>\n?"
;     :back "</style>")))
; (mmm-add-classes
;  '((js-code
;     :submode javascript-mode
;     :face mmm-output-submode-face
;     :front "<script.*?>\n?"
;     :back "</script>")))
; (add-hook 'html-mode-hook
;           (lambda ()
;             (setq mmm-classes '(erb-code css-code js-mode))
;             (mmm-mode-on)))
; (add-to-list 'auto-mode-alist '("\\.rhtml$" . html-mode))
; (define-key mmm-mode-map (kbd "C-c C-c") 'mmm-parse-buffer)

;; .rb and .rbx are Ruby files
;; 02may2002  +leah+
  (add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
  (add-to-list 'auto-mode-alist '("\\.rbx$" . ruby-mode))
)

(require-soft 'haskell-mode
;  (require 'haskell-interactive-mode)
;  (require 'haskell-process)
;  (custom-set-variables
;   '(haskell-process-suggest-remove-import-lines t)
;   '(haskell-process-auto-import-loaded-modules t)
;   '(haskell-process-log t))
;  (add-hook 'haskell-mode-hook 'interactive-haskell-mode)
)

;; ?
(defun revert-all-buffers ()
  "Refreshes all open buffers from their respective files"
  (interactive)
  (let* ((list (buffer-list))
         (buffer (car list)))
    (while buffer
      (when (and (buffer-file-name buffer)
                 (not (buffer-modified-p buffer)))
        (set-buffer buffer)
        (revert-buffer t t t))
      (setq list (cdr list))
      (setq buffer (car list))))
  (message "Refreshed open files"))


;; Require darcsum
;; 18oct2004  +leah+
;(require-soft 'darcsum)

;;(require 'sr-speedbar)
;;(global-set-key (kbd "C-^") 'sr-speedbar-toggle)
;;(global-set-key (kbd "C-`") 'sr-speedbar-toggle)


;; note taking
;; 14oct2019  +leah+
(require 'calc-bin)
(defun leah2-visit-new-file ()
  (interactive)
  (let* ((calc-number-radix 36)
	 (ts (downcase (math-format-radix (floor (float-time))))))
    (find-file (concat ts ".md"))))
(defun leah2-kill-buffer-name ()
  (interactive)
  (kill-new (buffer-name)))
;; moved to caudex.el
;; (leah2-define-key "C-c n" 'leah2-visit-new-file)
;; (leah2-define-key "C-c b" 'leah2-kill-buffer-name)

;; 28sep2019  +leah+
(defun leah2-insert-3date ()
  (interactive)
  (shell-command "3date | tr -d '\012'" t)
  (move-end-of-line 1))
(global-set-key (kbd "M-[") 'leah2-insert-3date)

;; https://github.com/scy/timesheet.txt
;; 17jun2019  +leah+
(defun leah2-insert-timesheet-stamp ()
  (interactive)
  (goto-char (point-max))
  (unless (bolp)
    (insert "\n"))
  (insert (format-time-string "%H%M")))
(leah2-define-key "C-c C-t" 'leah2-insert-timesheet-stamp)

;; 04mar2013  +leah+
(defun prefix-suffix-lines (beg end prefix suffix)
  "Prefix and suffix all non-empty lines in region with given strings"
  (interactive "r\nMPrefix: \nMSuffix: ")
  (save-excursion
    (save-restriction
      (narrow-to-region (progn (goto-char beg) (line-beginning-position))
                        (progn (goto-char end) (line-end-position)))
      (goto-char (point-min))
      (while (not (eobp))
        (back-to-indentation)
        (when (not (looking-at "$"))
          (insert-string prefix)
          (end-of-line)
          (skip-syntax-backward " ")
          (insert-string suffix))
        (end-of-line)
        (forward-line)))))

;; Disable keyword matching highlighting
;; 30apr2015  +leah+
;;;;(defadvice smie-setup (after leah2-disable-smie-blinking activate)
;;;;  (setq-local smie-closer-alist nil))