; customization of editor behaviour (SGML/XML-specific items)
; (modify as needed!)

(setq inhibit-startup-screen t)

; (setq-default major-mode 'sgml-mode)	; deadly under openSUSE Leap 15.0


(defun sgml-preferences()		; (sgml-preferences)
  (setq sgml-set-face t)
  (setq sgml-auto-insert-required-elements t)
  (setq sgml-indent-step 0)
  (setq sgml-auto-activate-dtd t)
  (turn-on-auto-fill)
  (setq fill-column 80)
  (setq sgml-markup-faces '(
    (start-tag . font-lock-keyword-face)
    (end-tag . font-lock-keyword-face)
    (comment . font-lock-comment-face)
    (pi . font-lock-constant-face) ;; <?xml?>
    (sgml . font-lock-type-face)
    (doctype . bold)
    (entity . italic)
    (shortref . font-lock-reference-face)
  ))
)
(add-hook 'sgml-mode-hook 'sgml-preferences t)

; provide XEmacs-like context menus
(defun go-bind-markup-menu-to-mouse3 ()
; (define-key sgml-mode-map [(down-mouse-3)] 'sgml-tags-menu)
  (define-key global-map [(down-mouse-3)] 'sgml-tags-menu)
)
(add-hook 'sgml-mode-hook 'go-bind-markup-menu-to-mouse3 t)

(find-file "doc.xml")			; load ArchiTeX text file
(sgml-mode)