
(defvar hyperb:host-domain nil "\
<@domain-name> for current host.  Set automatically by 'hyperb:init'.")

(require (quote set))

(defun var:append (var-symbol-name list-to-add) "\
Appends to value held by VAR-SYMBOL-NAME, LIST-TO-ADD.  Returns new value.
If VAR-SYMBOL-NAME is unbound, it is set to LIST-TO-ADD.
Often used to append to 'hook' variables." (byte-code "ÂÄ	!… 	J‰… 9… ÂB‰† <ƒG ÂÅÆ\">ƒC Ç	@È=ƒ; ÉÊ#‚? Ë\"\"‚D ‚K Ç	\")‡" [val var-symbol-name nil list-to-add boundp mapcar (lambda (elt) (set:member elt val)) set-variable lambda apply list append] 8))

(defun first-line-p nil "\
Returns true if point is on the first line of the buffer." (save-excursion (beginning-of-line) (bobp)))

(defun last-line-p nil "\
Returns true if point is on the last line of the buffer." (save-excursion (end-of-line) (eobp)))

(byte-code "ÀÁ!ˆÂÃ!… ÄÅÆ\"ˆÄÇÈ\"‡" [load "hversion" fboundp smart-menu mapcar makunbound (smart-key-alist smart-key-mouse-alist) require (hui-mouse hypb hui-menus hbmap hibtypes)] 6)

(autoload (quote Rmail-init) "hrmail" "\
Initializes Hyperbole Rmail support.")

(autoload (quote Mh-init) "hmh" "\
Initializes Hyperbole Mh support.")

(autoload (quote Vm-init) "hvm" "\
Initializes Hyperbole Vm support.")

(autoload (quote Pm-init) "hpm" "\
Initializes Hyperbole PIEmail support.")

(autoload (quote Gnus-init) "hgnus" "\
Initializes Hyperbole Gnus support.")

(byte-code "ÅÆ\"	…9 
GÇUƒ Ã‰‚9 	GÇUƒ, ÈÉ
GÊZ
\"Ã\"‚9 Ë		A@\"ˆÈ		AA\"ˆ
*‰‡" [features rest rtn nil t set:member wconfig 1 setcdr nthcdr 2 setcar] 7)

(autoload (quote wconfig-ring-save) "wconfig" "\
Save window-config to ring." t)

(autoload (quote wconfig-yank-pop) "wconfig" "\
Pop window-config from ring." t)

(autoload (quote wconfig-delete-pop) "wconfig" "\
Delete window-config from ring." t)

(defun hyperb:init nil "\
Standard configuration routine for Hyperbole." (interactive) (byte-code "ÃÄ!ˆÅ ˆ† Æ ‰ˆÇ ˆ	† 
… ÈÉÊ\"ˆÈËÌ\"‡" [hyperb:host-domain hyperb:epoch-p hyperb:lemacs-p run-hooks hyperb:init-hook hyperb:check-dir-user hypb:domain-name hyperb:act-set var:append find-file-hooks (ep:but-create) write-file-hooks (hattr:save)] 8))

(defun hyperb:act-set nil "\
COORDINATION IS NOT YET OPERATIONAL.  hui-coord.el IS NOT INCLUDED.
Sets Hyperbole action command to uncoordinated or coordinated operation.
Coordinated is used when 'hcoord:hosts' is a non-nil list.
See \"hui-coord.el\"." (interactive) (byte-code "ÁÂÀ!… ƒ Ã‚ ÄM‡" [hcoord:hosts hyperb:act boundp hcoord:act hbut:act] 3))

(defun hyperb:action-v1 nil "\
Signals error if Version 1 Hyperbole link button is selected." (error "(hyperb:action-v1): Hyperbole version 1 buttons are not supported."))

(defun hyperb:check-dir-user nil "\
Ensures 'hbmap:dir-user' exists and is writable or signals an error." (byte-code "?† ;?† ÄÅ!!‰… Æ!… Ç!?…% ÈÉ!ˆÊ!Æ!†u ËÊ!!Æ	!?ƒC ÈÌ!‚t Ç	!?ƒP ÈÍ!‚t ÎÏÂÂ$ƒq Ç!†n ÐÑÒ#ˆÇ!†n ÈÓ!‚t ÈÔ!))ˆÃ‡" [hbmap:dir-user parent-dir nil t file-name-as-directory expand-file-name file-directory-p file-writable-p error "(hyperb:init): 'hbmap:dir-user' must be a writable directory name." directory-file-name file-name-directory "(hyperb:init): 'hbmap:dir-user' parent dir does not exist." "(hyperb:init): 'hbmap:dir-user' parent directory not writable." hypb:call-process-p "mkdir" hypb:chmod + 700 "(hyperb:init): Can't write to 'hbmap:dir-user'." "(hyperb:init): 'hbmap:dir-user' create failed."] 20))

(provide (quote hinit))