;; Hooks.
;; Emacs-Time-stamp: "2007-11-21 22:50:11"
(setq file-stamp "Emacs-File-stamp: \"/home/ysverdlov/leninist.biz/lb-hooks.el\"")
;;; files.el
;;;(defun basic-save-buffer ()
;;;(or (run-hook-with-args-until-success 'write-contents-hooks)
;;;		(run-hook-with-args-until-success 'local-write-file-hooks)
;;;		(run-hook-with-args-until-success 'write-file-hooks)
;;;		;; If a hook returned t, file is already "written".
;;;		;; Otherwise, write it the usual way now.
;;;		(setq setmodes (basic-save-buffer-1)))
;; Used by hooks:
(defun lb-date-verbal nil
  "Now"
  ;; (lb-date-verbal) => "2005 May 31"
  (with-temp-buffer
    ;; (shell-command "822-date" t)
    (insert (format-time-string "%Y %B %d"))
    (buffer-substring-no-properties (point-min) (point-max))))
(defun lb-date-YYYY.MM.DD nil
  "Now"
  ;; (lb-date-verbal) => "2005 May 31"
  (with-temp-buffer
    ;; (shell-command "822-date" t)
    (insert (format-time-string "%Y.%m.%d"))
    (buffer-substring-no-properties (point-min) (point-max))))
;; Used by hooks:
(defun lb-bfn-to-url (arg1bfn)
  ""
  ;; (lb-bfn-to-url (buffer-file-name)) => "http://leninist.biz/lb.el"
  (let (x) 
    (save-match-data
      (and (string-match abbreviated-home-dir (setq x (buffer-file-name)))
	   (string-match "^~" (setq x (replace-match "~/" t t x)))
	   (replace-match "http:/" t t x)))))
;;
;; "dired-after-readin-hook" comes after "dired-mode-hook" in dired.el.
;;   SEE dired-internal-noselect.
;;    - hook dired-mode-hook run at end of (dired-mode.
;;    - hook dired-after-readin-hook run after that.
;; (setq dired-mode-hook nil)
;; (add-hook 'dired-mode-hook 'lb-dired-hook-insert-dot-index)
;; (setq dired-after-readin-hook nil)
;;
(add-hook 'dired-after-readin-hook 'lb-dired-hook-insert-dot-index)
(defun lb-dired-hook-insert-dot-index (&optional arg1)
  ""
  (interactive "p")
  (let (lb-path lb-files
		lb-rc)
    (when (string-match (concat lb-re-path-year+book "$") 
		      (dired-current-directory))
      (setq lb-path
	    (match-string-no-properties 0 (dired-current-directory)))
      (if
	  (and
	   (not (file-exists-p (concat lb-home lb-path "" lb-file-dot-index)))
	   (and
	    (not (string-match "^AF1H4YV" (system-name)))
	    ;; mta metro laptop - 2007.11.21
	    (not (string-match "^TYPE9549.gateway.2wire.net" (hostname)))
	    )
	   (null
	    (directory-files (dired-current-directory) t
			     ;; fix?
			     ;; should use regexp.
			     (concat "^" lb-file-dot-index "$")
			     )))
	  (lb-db-insert-dot-index-book lb-path)))
    ;; .index does not appear in dired window until...
    ;; (revert-buffer)
;;; Signaling: (error "Variable binding depth exceeds max-specpdl-size")
;;;   file-name-non-special(expand-file-name "ls" "/:/bin")
;;;   call-process("ls" nil t nil "-al" "--" "/home/login/leninist.biz/.")
;;;   apply(call-process "ls" nil t nil ("-al" "--" "/home/login/leninist.biz/."))
;;;   insert-directory("/home/login/leninist.biz/" "-al" nil t)
;;;   dired-insert-directory("~/leninist.biz/" "-al" nil t)
;;;   dired-readin-insert("~/leninist.biz/")
;;;   dired-readin("~/leninist.biz/" #<buffer leninist.biz>)
;;;   dired-revert(nil nil)
;;;   revert-buffer()
    lb-rc))
(defun lb-do-auto-fill ()
  ""
  (let (lb-pf lb-line)
    (setq lb-line (buffer-substring-no-properties
		   (save-excursion (beginning-of-line) (point))
		   (save-excursion (end-of-line) (point))))
    (do-auto-fill)
    ;;
    ;; Why is [SPACE][BACKSPACE] necessary?
    ;; Why not just [SPACE]?
    (if (string-match "^__TITLE__[^\n]+: $" lb-line)
	(insert "\n__SUBTITLE__   ")
      (if (string-match "^__SUBTITLE__[^\n]+: $" lb-line)
	  (insert "\n__SUBTITLE2__  ")))
    ))
;; This takes too long every time an .index is opened. 
;; Only really needed when adding a new book; SEE: lb-db-insert-dot-index-type
;;
;; But, without it, empty template is *NOT* added to new .index!
(add-hook 'find-file-hooks 'lb-db-find-file-hook)
(defun lb-db-find-file-hook nil
  ""
  (let ((lb-bfn (buffer-file-name)))
    (when
	(or
	 (string-match (concat "/" lb-re-file-rawdata) lb-bfn)
	 nil)
      (local-set-key "\M-q" 'lb-db-fill-paragraph)
      (local-set-key "\M-a" 'lb-db-fill-paragraph)
      (setq auto-fill-function 'lb-do-auto-fill)
      ;; If empty, add first record.
      (when (string= "" (buffer-string))
	(progn (insert "\n0\n\n0") (save-buffer 0))
	(progn (lb-db-insert-rec nil) (save-buffer 0))
	(lb-db-insert-dot-index-type))
      ;;
      (lb-db-check-dot-index lb-bfn)
      ;; SEE: lb-db-insert-dot-index-book
      ;; (lb-db-shell-grep-titl2 lb-bfn)
      )))
(defun lb-time-stamp-format nil
  ""
  (let ((lb-bfn (buffer-file-name)))
    (if (string-match lb-domain lb-bfn)
	(set (make-local-variable 'time-stamp-format) 
	      "%:y-%02m-%02d %02H:%02M:%02S"))))
					;
(add-hook 'find-file-hooks 'lb-time-stamp-format)
(add-hook 'find-file-hooks 'lb-write-file-hooks-text-mode-formatting)
(defun lb-write-file-hooks-text-mode-formatting nil
  ""
  (let (lb-rc)
    ;;
    (when (or (eq 'text-mode major-mode)
	      ;; (string-match "[.]tx[q]?$" (bfn))
	      (eq 'text-mode major-mode))
      (add-hook 'local-write-file-hooks '_-compress-multiple-newlines t)
      (add-hook 'local-write-file-hooks 'lb-db-fill-paragraph-non-interactive t))
    (when (or (string-match "[.]tx[q]?$" (bfn))
	      )
      (add-hook 'local-write-file-hooks
		'tx-check-buffer-noninteractive t)
      (add-hook 'local-write-file-hooks
		'lb-tx-check-^^ t)
      (add-hook 'local-write-file-hooks
		'lb-tx-check-buffer4-singularities t)
      (add-hook 'local-write-file-hooks
		'lb-tx-check-buffer4-trailing-dash t)
      (add-hook 'local-write-file-hooks
		'lb-tx-check-buffer4-para-break-before-last-line t)
      ;; 2007.08.22
      (if (not (save-excursion (or (sbr "</BODY>" nil t)
				   (sfr "</BODY>" nil t))))
	  (add-hook 'local-write-file-hooks
		    'lb-tx-check-page-numbers-editing t))
      )
    ;; be sure to return nil so can be used on write-file-hooks
    nil))
;; (lb-write-file-hook-sgml-stamps-visible)
(add-hook 'local-write-file-hooks 'lb-write-file-hook-sgml-stamps-visible)
(defun lb-write-file-hook-sgml-stamps-visible (&optional arg1force)
  "
Optional ARG1, if non-nil, will force this function to 
do its thing; otherwise change depends upon major-mode"
  ;;
  (let (lb-pf
	nil_rc)
    (save-excursion
      (save-match-data
	(goto-char (point-max))
	(while
	    (and (or arg1force
		     (eq 'html-mode major-mode)
		     (eq 'sgml-mode major-mode)
		     (eq 'text-mode major-mode) ;; Raw markup (lb-mu.el).
		     (eq 'xml-mode major-mode))
		 (search-backward-regexp 
		  "class=\"\\(modified\\|self-url\\)\"" nil t))
	  ;;
	  (save-excursion
	    (when (and (string= "span" (_-sgml-what-element))
		       (search-forward-string ">"))
	      ;; <span class="modified">2006 Feb 3
	      (if (sfr (concat
			;; 2007.07.31 - stopped working when
			;; changed from:
			;; 2006 Feb 3
			;; to:
			;; Created= 2006 Feb 3
			;; --------------------
			;; _-whitespace-noM "*"
			;; "\\([^0-9]*\\)"
			;; "\\(.*\\)"
			"\\(2[0-9][0-9][0-9] [A-Z][a-z]+ [0-9]+\\)")
		       (sex (sfr "\\(</span>\\|<!--\\)")
			    (match-beginning 0)) t)
		  (replace-match (lb-date-verbal) t t nil 1))
	      ;; <span class="self-url">http://leninist.biz/en/html/htmm/book
	      (when (looking-at (concat
				 _-whitespace-noM "*"
				 ;; 2006.12.14
				 ;; "http[^<]+"
				 "http://"
				 ;; 2006.11.17
				 ;; "htm[lm]?"
				 ;; 2006.12.14
				 ;; _-whitespace-noM "*"
				 ;; "</span>"
				 ))
		(delete-region (point) (search-forward-string "</span>"))
		(insert (concat
			 (lb-bfn-to-url (buffer-file-name))
			 "</span>")))
	      )))
	;; be sure to return nil so can be used on write-file-hooks
	)) nil))
(add-hook 'isearch-mode-end-hook 'recenter)
(add-hook 'isearch-mode-end-hook 'lb-isearch-message-what-page)
(defun lb-isearch-message-what-page nil
  ""
  ;; (interactive "p")
  ;; fix!
  ;; If search was *forward* for page number, it reports *previous* page #,
  ;; but when search ends point is to right of page number at *top* of file.
  ;; fix?
  ;; Use this .tx variable? __WHERE_PAGE_NUMBERS__
  (let (lb-letx0 lb-letx1 lb-n0 lb-n1 lb-str)
    (when 
	(and
	 (bfn) ;; Mini-buffer does not have.
	 (not (string= "dired-mode" major-mode))
	 (boundp '_-where-page-numbers)
	 (not (string= "index.tab" (file-name-sans-directory (bfn))))
	 (not (string= "__" (file-name-sans-directory (bfn))))
	 ) ;; and
      (save-match-data
	(save-excursion 
	  (when 
	      (if (string= "top" _-where-page-numbers)
		  (search-backward-regexp lb-re-bracketed-para-integer nil t)
		(search-forward-regexp lb-re-bracketed-para-integer nil t))
	    (setq lb-letx0 (subst-char-in-string 10 32 (match-string 0)))))
	;; 2006.11.02
	(when (string= "text-mode" major-mode)
	  (when 
	      (setq lb-str (lb-tx-what-page t))
	    (message (concat "  PAGE: " 
			     ;; lb-letx0 
			     lb-str
			     "      " (abbreviate-file-name (bfn)))))
	  )
	))))
(defun tx-find-file-hooks nil
  "
Note: interactive must come before let"
  (let (lb-list 
	(_fn (file-name-sans-directory (buffer-file-name)))
	lb-rc)
    (when (or 
	   ;; 2006.12.15
	   ;; (string= lb-file-tx (file-name-sans-directory (buffer-file-name)))
	   (string-match (concat "^" lb-re-tx-100pages "$") _fn)
	   (string-match "[.]txq?$" (bfn))
	   nil)
      ;; 2007.08.15
      (save-excursion
	(if (and (progn (gcpm) t)
		 ;; lb-octal-highest-acceptable
		 (sfr (concat "[^\000-\377]") nil t))
	    (error "%s: %s"
		   (concat "CHAR exceeds " 
			   (int-to-string lb-octal-highest-acceptable))
		   (_-buffer-substring-from-))))
      (unless (featurep 'lb-edits)
	(load "lb-edits"))
      ;; 2007.07.04 - insert buffer-file-name into to-do notes.
      ;; (set (make-local-variable '_bfn) (bfn))
      (setq _bfn (bfn))
      ;; Use "(when tx" to wrap functions that might be used in non-tx buffers.
      (set (make-local-variable 'tx) t)
      ;; 2007.07.05
      (set (make-local-variable '_orig-case-fold-search) case-fold-search)
      ;; Just forward (rarely go [C-up]).
      (local-set-key [C-down]  'tx-editing-forward-paragraph)
      (local-set-key [C-right] 'tx-editing-forward-word)
      (local-set-key "\C-y" 'tx-editing-yank)
      (local-set-key [f2 f6] 'tx-editing-del-recto-pageno)
      (local-set-key [f2 f12] '_-para-delete)
      ;; 2007.07.12
      (my-find-file-hooks-tx-kill-word)
      ;; 2007.11.02
      (local-set-key [f2 ?b] 'tx-editing-insert-bold-in-LVL)
      ;; fix! Accept prefix arg to jump more than one page at a time.
      ;; fix! Make into function, so C-h f will tell which file to edit.
      (local-set-key [C-prior] 'tx-moving-page-beg)
      (local-set-key [C-next] 'tx-moving-page-end)
      (when
	  ;; This does occur every time a .tx is opened.
	  nil
	(setq lb-list (lb-tx-get-__ "\\(ALPHA\\|NUMERIC\\)_LVL[12]"))
	(with-temp-buffer
	  (loop for i in lb-list
		do
		(insert "" i "\n\n"))
	  (occur "^"))
	;; fix? what to look at after opening a tx file?
	(when
	    nil
	  (switch-to-buffer (get-buffer "*Occur*"))
	  (delete-other-windows)
	  (toggle-read-only)
	  (goto-char (point-min))
	  (while (search-forward-regexp "^[ \t]+[0-9]+?:" nil t)
	    (replace-match ""))
	  (goto-char (point-min))))
      )
    ;; must return nil
    nil))
(add-hook 'find-file-hooks 'tx-find-file-hooks)
(provide 'lb-hooks)
;;;
					;