add rudimentary eldoc support

Author: arne

el/sclang-mode.el

@@ -78,40 +78,40 @@
   (easy-menu-create-menu
    title
    '(
-	 ["Start Interpreter"		sclang-start :included (not (sclang-library-initialized-p))]
-	 ["Restart Interpreter"		sclang-start :included (sclang-library-initialized-p)]
-	 ["Recompile Class Library"	sclang-recompile :included (sclang-library-initialized-p)]
-	 ["Stop Interpreter"		sclang-stop	 :included (sclang-get-process)]
-	 ["Kill Interpreter"		sclang-kill	 :included (sclang-get-process)]
-	 "-"
-	 ["Show Post Buffer"		sclang-show-post-buffer]
-	 ["Clear Post Buffer"		sclang-clear-post-buffer]
-	 "-"
-	 ["Switch To Workspace"		sclang-switch-to-workspace]
-	 "-"
-	 ["Evaluate Region"			sclang-eval-region]
-	 ["Evaluate Line"			sclang-eval-region-or-line]
-	 ["Evaluate Defun"			sclang-eval-defun]
-	 ["Evaluate Expression ..."	sclang-eval-expression]
-	 ["Evaluate Document"		sclang-eval-document]
-	 "-"
-	 ["Find Definitions ..."	sclang-find-definitions]
-	 ["Find References ..."		sclang-find-references]
-	 ["Pop Mark"				sclang-pop-definition-mark]
-	 ["Show Method Arguments"	sclang-show-method-args]
-	 ["Complete keyword"		sclang-complete-symbol]
-	 ["Dump Interface"			sclang-dump-interface]
-	 ["Dump Full Interface"		sclang-dump-full-interface]
-	 "-"
-	 ["Index Help Topics"		sclang-index-help-topics]
-	 ["Find Help ..."			sclang-find-help]
-	 ["Switch to Help Browser"	sclang-goto-help-browser]
-	 ["Open Help GUI"			sclang-open-help-gui]
-	 "-"
-	 ["Run Main"				sclang-main-run]
-	 ["Stop Main"				sclang-main-stop]
-	 ["Show Server Panels"		sclang-show-server-panel]
-	 )))
+     ["Start Interpreter"		sclang-start :included (not (sclang-library-initialized-p))]
+     ["Restart Interpreter"		sclang-start :included (sclang-library-initialized-p)]
+     ["Recompile Class Library"	sclang-recompile :included (sclang-library-initialized-p)]
+     ["Stop Interpreter"		sclang-stop	 :included (sclang-get-process)]
+     ["Kill Interpreter"		sclang-kill	 :included (sclang-get-process)]
+     "-"
+     ["Show Post Buffer"		sclang-show-post-buffer]
+     ["Clear Post Buffer"		sclang-clear-post-buffer]
+     "-"
+     ["Switch To Workspace"		sclang-switch-to-workspace]
+     "-"
+     ["Evaluate Region"			sclang-eval-region]
+     ["Evaluate Line"			sclang-eval-region-or-line]
+     ["Evaluate Defun"			sclang-eval-defun]
+     ["Evaluate Expression ..."	sclang-eval-expression]
+     ["Evaluate Document"		sclang-eval-document]
+     "-"
+     ["Find Definitions ..."	sclang-find-definitions]
+     ["Find References ..."		sclang-find-references]
+     ["Pop Mark"				sclang-pop-definition-mark]
+     ["Show Method Arguments"	sclang-show-method-args]
+     ["Complete keyword"		sclang-complete-symbol]
+     ["Dump Interface"			sclang-dump-interface]
+     ["Dump Full Interface"		sclang-dump-full-interface]
+     "-"
+     ["Index Help Topics"		sclang-index-help-topics]
+     ["Find Help ..."			sclang-find-help]
+     ["Switch to Help Browser"	sclang-goto-help-browser]
+     ["Open Help GUI"			sclang-open-help-gui]
+     "-"
+     ["Run Main"				sclang-main-run]
+     ["Stop Main"				sclang-main-stop]
+     ["Show Server Panels"		sclang-show-server-panel]
+     )))
 
 (defun sclang-fill-mode-map (map)
   ;; process control
@@ -154,7 +154,7 @@
   (define-key map "*"				'sclang-electric-star)
   ;; menu
   (let ((title "SCLang"))
-	(define-key map [menu-bar sclang] (cons title (sclang-mode-make-menu title))))
+    (define-key map [menu-bar sclang] (cons title (sclang-mode-make-menu title))))
   ;; return map
   map)
 
@@ -308,7 +308,7 @@
     (list
      ;; classes
      (cons 'sclang-font-lock-class-keyword-matcher 'font-lock-type-face)
-;;      (cons (concat "\\<" sclang-class-name-regexp "\\>") 'font-lock-type-face)
+     ;;      (cons (concat "\\<" sclang-class-name-regexp "\\>") 'font-lock-type-face)
      ))
    ;; default level
    sclang-font-lock-keywords sclang-font-lock-keywords-1
@@ -600,14 +600,14 @@ Returns the column to indent to."
 
 (sclang-set-command-handler
  '_documentPutString
-(lambda (arg)
+ (lambda (arg)
    (cl-multiple-value-bind (id str) arg
      (let ((doc (and (integerp id) (sclang-get-document id))))
        (when doc
 	 (with-current-buffer doc
-	 (insert str)
-	 )
-       nil)))))
+	   (insert str)
+	   )
+         nil)))))
 
 (sclang-set-command-handler
  '_documentPopTo
@@ -655,6 +655,8 @@ Returns the column to indent to."
        'sclang-font-lock-syntactic-face)
   (set (make-local-variable 'font-lock-defaults)
        sclang-font-lock-defaults)
+  ;; eldoc
+  (set (make-local-variable 'eldoc-documentation-function) 'sclang-show-method-args)
   ;; ---
   nil)