Skip to content
Browse files

Small changes for the new website

  • Loading branch information...
1 parent 7eebb16 commit c441e181ce1c321ed079da669cd4c6f4d5304d40 berndl committed Jan 31, 2003
Showing with 101 additions and 183 deletions.
  1. +7 −4 html/Makefile
  2. +79 −179 html/ecb-html.el
  3. +15 −0 html/html-helper.el
View
11 html/Makefile
@@ -19,7 +19,8 @@ SCP=scp
MAKEINFO=/usr/bin/makeinfo
ecb_HTMLSOURCE=ecb-html.el
-ecb_HTML_GEN=logo.html javabrowser.html main.html menu.html links.html top.html
+ecb_HTML_GEN=logo.html javabrowser.html main.html menu.html links.html \
+ top.html all-news.html
ecb_HTMLDOCU_DIR=./docs
ecb_TEXI=../ecb.texi
@@ -30,14 +31,16 @@ ecb_GIFS=bullet.gif ecb_logo.gif mail.gif smiley.gif
ecb_UPLOAD_ARC=ecb-website.tar.gz
ecb_WEBSITE_CONTENT=index.html $(ecb_HTML_GEN) $(ecb_HTMLDOCU_DIR)/*.html \
- $(ecb_SCREENSHOTS) HISTORY $(ecb_GIFS)
+ $(ecb_SCREENSHOTS) history $(ecb_GIFS)
ecb_WEBSITE_LOC=/home/groups/e/ec/ecb/htdocs
ecb_SF_login=berndl@ecb.sourceforge.net
all: upload-build
website: $(ecb_HTMLSOURCE)
+ @$(RM) $(ecb_HTML_GEN)
+ @$(RM) *.elc
$(EMACS) -batch -no-site-file $< -f eval-current-buffer
online-docu: $(ecb_TEXI)
@@ -48,7 +51,7 @@ online-docu: $(ecb_TEXI)
$(ecb_HTMLDOCU_DIR)/index.html: online-docu
upload-build: $(ecb_HTMLDOCU_DIR)/index.html website
- @$(CP) ../HISTORY .
+ @$(CP) ../HISTORY history
@$(RM) $(ecb_UPLOAD_ARC)
$(TARC) $(ecb_UPLOAD_ARC) $(ecb_WEBSITE_CONTENT)
@@ -59,5 +62,5 @@ upload: website upload-build
clean:
@$(RM) -R $(ecb_HTMLDOCU_DIR)
- @$(RM) HISTORY *.elc $(ecb_UPLOAD_ARC) $(ecb_HTML_GEN) *.*~
+ @$(RM) history *.elc $(ecb_UPLOAD_ARC) $(ecb_HTML_GEN) *.*~
View
258 html/ecb-html.el
@@ -19,10 +19,11 @@
;;; Commentary:
-;; Generates the ECB website. This files generates six files:
-;; main.html, menu.html, top.html, logo.html links.html and javabrowser.html.
-;; These files will be used by the start-file index.html and all together
-;; build the complete website of ECB at http://ecb.sourceforge.net.
+;; Generates the ECB website. This files generates seven files: main.html,
+;; menu.html, top.html, logo.html links.html, all-news.html and
+;; javabrowser.html. These files will be used by the start-file index.html and
+;; all together build the complete website of ECB at
+;; http://ecb.sourceforge.net.
;;
;; Do not change any html-file besides the index.html manually but do all
;; changes in this elisp file!
@@ -44,41 +45,84 @@
(setq h-section-text-bgcolor "#ffffff")
(setq h-section-text-fgcolor "#000000")
+(defvar ecb-menu-color nil)
(setq ecb-menu-color "#cfcfff")
+(defvar ecb-bullet nil)
(setq ecb-bullet "bullet.gif")
-;; Change these variables
-(setq ecb-download-url "http://ftp1.sourceforge.net/ecb/")
-
;; These shouldn't have to be changed
+(defvar ecb-dirname nil)
(setq ecb-dirname (concat "ecb-" ecb-version))
+(defvar ecb-zip-name nil)
(setq ecb-zip-name (concat ecb-dirname ".zip"))
+(defvar ecb-gz-name nil)
(setq ecb-gz-name (concat ecb-dirname ".tar.gz"))
+(defvar ecb-zip-url nil)
(setq ecb-zip-url (concat ecb-download-url ecb-zip-name))
+(defvar ecb-gz-url nil)
(setq ecb-gz-url (concat ecb-download-url ecb-gz-name))
+(defvar ecb-latest-news nil
+ "List of latest news displayed on the main page.")
+(setq ecb-latest-news
+ `(,(h-sub-section "ECB 1.90 released! (2003-01-31)"
+ "A lot of new features! Fixed some annoying bugs! "
+ (h-link "docs/Install-and-first-steps.html#Install%20and%20first%20steps" "Here") " is a short installation guide. "
+ "Click " (h-link "history" "here")
+ " for information about changes in the new version. ")
+ ,(h-sub-section "ECB 1.80 is now an official XEmacs package too! (2003-01-31)"
+ "The ECB XEmacs-package has the version-number 1.01 and can "
+ "be installed via "
+ (h-link "http://www.xemacs.org/Download/win32/setup.exe"
+ "XEmacs-netinstaller")
+ " (for Windows) or via the package-manager of XEmacs.")
+ ,(h-sub-section "ECB has a new official website! (2003-01-30)"
+ "You are already visiting the "
+ (h-link "main.html" "new webiste")
+ ". The "
+ (h-link "http://home.swipnet.se/mayhem/ecb.html"
+ "old website")
+ " is not longer supported!")
+ ,(h-sub-section "ECB has a new maintainer. (2003-01-30)"
+ "Maintainance of ECB has been moved from "
+ (h-email "mayhem@home.se" "Jesper Nordenberg")
+ " to "
+ (h-email "klaus.berndl@sdm.de" "Klaus Berndl")
+ ".")))
+
+(defvar ecb-rest-news nil
+ "List of older news - these news are displayed in all-news.html; see
+`ecb-html-all-news'.")
+(setq ecb-rest-news
+ `(,(h-sub-section "ECB 1.80 released! (2002-08-12)")
+ ,(h-sub-section "ECB 1.70 released! (2002-03-01)")
+ ,(h-sub-section "ECB 1.60 released! (2002-01-20)"
+ "Many improvements. Works fine with Emacs 21.")
+ ,(h-sub-section "ECB 1.52 released! (2001-10-24)"
+ "Fixed a small bug when loading ECB.")
+ ,(h-sub-section "ECB 1.51 released! (2001-10-21)"
+ "Some new features.")
+ ,(h-sub-section "ECB 1.50 released! (2001-08-12)"
+ "A couple of minor improvements and some bug fixes.")))
+
+
(defun ecb-html-main()
(h-doc
"main.html"
"ECB - Emacs Code Browser"
(h-section "About"
- "ECB is source code browser for Emacs. It is a global minor-mode which displays a couple of windows that can be used to browse directories, files and methods. It supports method parsing for Java, C, C++, Elisp, Scheme etc.")
-
- (h-section "News"
- (h-sub-section "ECB 1.80 released! (2002-08-12)"
- (h-link "docs.html#Install%20and%20first%20steps" "Here") " is a short installation guide. "
- "Click " (h-link "HISTORY" "here") " for information about changes in the new version. ")
- (h-sub-section "ECB 1.70 released! (2002-03-01)")
- (h-sub-section "ECB 1.60 released! (2002-01-20)"
- "Many improvements. Works fine with Emacs 21.")
- (h-sub-section "ECB 1.52 released! (2001-10-24)"
- "Fixed a small bug when loading ECB.")
- (h-sub-section "ECB 1.51 released! (2001-10-21)"
- "Some new features.")
- (h-sub-section "ECB 1.50 released! (2001-08-12)"
- "A couple of minor improvements and some bug fixes.")
- )
+ "ECB is a source code browser for Emacs. "
+ "It is a global minor-mode which displays a couple of windows "
+ "that can be used to browse directories, files and file-contents "
+ "like methods and variables. It supports source-code parsing for "
+ "Java, C, C++, Elisp, Scheme etc.")
+
+ (apply 'h-section "News"
+ (append ecb-latest-news
+ `("Click "
+ ,(h-link "all-news.html" "here")
+ " to get a list of all news.")))
(h-section "Dependencies"
(h-bullet-link-list
@@ -87,7 +131,7 @@
("http://cedet.sourceforge.net/eieio.shtml" "EIEIO" "Version 0.17 or higher.")
("http://jdee.sunsite.dk" "JDEE" "If you use ECB for Java development."))
"_top")
- (h-p "If you use XEmacs you must have the fsf-compat package installed (contains overlay.el)."))
+ (h-p "If you use XEmacs you must have the fsf-compat (contains overlay.el) and mail-lib packages installed."))
(h-section "Developers"
(h-bullet-link-list
@@ -108,6 +152,15 @@
(h-td " since 2000-07-28.")))
))
+(defun ecb-html-all-news()
+ (h-doc
+ "all-news.html"
+ "ECB News"
+ (apply 'h-section "All ECB news"
+ (append ecb-latest-news
+ ecb-rest-news
+ `(,(h-line) ,(h-link "main.html" "Back") " to main-site.")))))
+
(defun ecb-html-old()
(h-doc
"javabrowser.html"
@@ -127,20 +180,6 @@
(h-link "main.html" '(target . "main")
(h-img "ecb_logo.gif" "border='0'")))))
-;; Not used anymore.
-(defun ecb-html-screenshots()
- (h-doc
- "screenshots.html"
- "ECB Screenshots"
- (h-section "ECB 1.60 running in Emacs 21 showing fields and inner classes in a Java source file"
- (h-img "ecb-java.png"))
- (h-section "ECB 1.60 running in Emacs 21 showing two classes in a C++ source file"
- (h-img "ecb-cpp.png"))
- (h-section "ECB running in XEmacs under Windows 98 showing an emacs-lisp source file"
- (h-img "ecb-xemacs.png"))
- (h-section "ECB 1.0 running in GNU Emacs under Windows 98"
- (h-img "ecb.png"))
- ))
(defun ecb-html-links()
(h-doc
@@ -176,12 +215,9 @@
("main.html" "Main")
("http://sourceforge.net/project/showfiles.php?group_id=17484" "Download")
("docs/Install-and-first-steps.html#Install%20and%20first%20steps" "Installation")
-;; ("docs.html#Install%20and%20first%20steps" "Installation")
-;; ("docs.html" "Documentation")
("docs/index.html" "Documentation")
("docs/FAQ.html#FAQ" "FAQ")
-;; ("docs,html#FAQ" "FAQ")
- ("history" "HISTORY")
+ ("history" "History")
("http://lists.sourceforge.net/lists/listinfo/ecb-list" "Mailing List")
("http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/ecb/" "CVS")
("screenshots/index.html" "Screenshots")
@@ -217,149 +253,13 @@
(h-td '(nowrap) (h-email "klaus.berndl@sdm.de" (h-img "mail.gif" "border='0'"))))
)))
-;; Not used anymore
-;; (defun ecb-faq-section(name &rest questions)
-;; (list name questions))
-
-;; (defun ecb-faq-q-and-a(question &rest answers)
-;; (cons question (h-list-to-str answers)))
-
-;; (defvar ecb-faq)
-
-;; (setq ecb-faq
-;; (list
-;; (ecb-faq-section
-;; "General"
-;; (ecb-faq-q-and-a
-;; "What is ECB?"
-;; "ECB stands for Emacs Code Browser and is a tool for browsing source code in GNU Emacs or XEmacs. You can think of ECB as a file browser combined with a source code parser.")
-;; (ecb-faq-q-and-a
-;; "Where can I find the latest version?"
-;; "The latest ECB version can be found " (h-link "http://home.swipnet.se/mayhem/ecb.html" '(target . "_top") "here"))
-;; )
-
-;; ; (ecb-faq-section
-;; ; "Installation"
-;; ; (ecb-faq-q-and-a
-;; ; "?"
-;; ; "")
-;; ; )
-
-;; (ecb-faq-section
-;; "Common Problems"
-;; (ecb-faq-q-and-a
-;; "What is the first step i should do if i have problems with ECB?"
-;; "Read carefully the complete online-help of ECB. Available via the menu \"ECB\", via \"M-x ecb-show-help RET\" or via \"C-c . o\".")
-;; (ecb-faq-q-and-a
-;; "Why are the lines in the ECB-buffers, temp-buffers and compilation-buffers not wrapped but truncated?"
-;; "Check the variable `truncate-partial-width-windows' and set it to nil.")
-;; (ecb-faq-q-and-a
-;; "Why doesn't ECB work correct with VC?"
-;; "The variable `vc-delete-logbuf-window' must be set to nil during active ECB. This can be done with the hooks of ECB.")
-;; (ecb-faq-q-and-a
-;; "Does ECB support C++ as well as Java?"
-;; "This depends strongly on Semantic, but all semantic-versions >= semantic-1.4beta13 should support C++ really well.")
-;; (ecb-faq-q-and-a
-;; "Why doesn't ECB display the node name in the echo area if mouse moves over it?"
-;; "There can be several reasons: First the value of the option 'ecb-show-node-name-in-minibuffer' must be either 'always or 'if-too-long. If this is ok, then maybe you have turned on follow-mouse AFTER activating ECB; follow-mouse must be turned on BEFORE ECB is acivated, e.g. in the 'ecb-activate-hook'! But with Emacs 21.X and XEmacs there are no problems with this feature, just activate it.") ;;
-;; (ecb-faq-q-and-a
-;; "What is the reason for poor scrolling performance with GNU Emacs 20.X in the edit-windows and what can i do?"
-;; "Set 'scroll-conservatively' to 0 and 'scroll-step' to a value > 1. For the exact reason see the online-help of ECB, section \"Tips and Tricks\".")
-;; )
-;; ))
-
-
-;; (defun ecb-faq-traverse(list section-fn item-fn)
-;; (let ((snr 0))
-;; (mapcar
-;; (lambda (section)
-;; (setq snr (1+ snr))
-;; (concat
-;; (funcall section-fn snr (car section))
-;; (h-table
-;; (let ((i 0))
-;; (mapconcat (lambda (item)
-;; (setq i (1+ i))
-;; (funcall item-fn snr i item))
-;; (cadr section) "")))))
-;; list)))
-
-;; (defun ecb-html-faq()
-;; (h-doc
-;; "faq.html"
-;; "ECB FAQ"
-;; (cons 'bgcolor h-section-text-bgcolor)
-;; (h-h2 "ECB FAQ")
-
-;; (ecb-faq-traverse
-;; ecb-faq
-;; (lambda (snr section) (h-h3 (h-link (format "#%d" snr)
-;; (format "%d. %s" snr section))))
-;; (lambda (snr inr item)
-;; (h-tr (h-td (format "%d.%d" snr inr))
-;; (h-td (h-link (format "#%d_%d" snr inr) (car item))))))
-
-;; (ecb-faq-traverse
-;; ecb-faq
-;; (lambda (snr section) (h-h3 (h-tag (format "%d" snr)
-;; (format "%d. %s" snr section))))
-;; (lambda (snr inr item)
-;; (concat (h-tr (h-td (h-tag (format "%d_%d" snr inr))
-;; (h-b (format "%d.%d" snr inr)))
-;; (h-td (h-b (car item))))
-;; (h-tr (h-td)
-;; (h-td (cdr item))))))
-;; ))
-
-;; Not used anymore
-;; (defun ecb-html-doc()
-;; (h-doc
-;; "docs.html"
-;; "ECB Documentation"
-;; (h-section
-;; "Installation and Setup"
-;; (h-numbered-list
-;; "Download and unzip the latest version of ECB."
-;; (concat "Put the directory '" ecb-dirname "' in your Emacs load path.")
-;; "Add \"(require 'ecb)\" to your .emacs file."
-;; "Call \"ecb-activate\"."
-;; "Select the '*ECB Directories*' window (usually top-left) and press F2. This will open the customization buffer for ECB."
-;; "Add the paths to your source files under 'Ecb Directories' -> 'Ecb Source Path'."
-;; "Save the settings. Done!"))
-
-;; (h-section
-;; "Usage"
-
-;; (h-p "By default mouse-2 is the primary mouse button used for selecting items in the ECB buffers. Ctrl-mouse-2 is used as secondary mouse button. This can be changed with the customization variable ecb-primary-secondary-mouse-buttons.")
-
-;; (h-sub-section
-;; "Directories Buffer"
-;; "Select directories and, if enabled, source files, in the \"*ECB Directories*\" buffer by clicking the primary mouse button on the package name or by hitting ENTER/RETURN when the cursor is placed on the item line. Package names with a \"[+]\" symbol after them can be expanded/collapsed by left-clicking on the symbol, pressing the TAB key when the cursor is placed on the package line. Right clicking on an item will open a popup menu where different operations on the item under the mouse cursor can be performed." h-br
-;; "Pressing F1 in the packages buffer will update it. Pressing F2 will open the ECB customization group in the edit window.")
-
-;; (h-sub-section
-;; "Source and History Buffer"
-;; "Source files can be select by clicking the primary mouse button or hitting ENTER/RETURN on the class row in the \"*ECB Sources*\" or \"*ECB History*\" windows. Clicking on the source file with the secondary mouse button will open the class file in the other edit window. Right clicking on a source file will open a popup menu where different operation on the item under the mouse cursor can be performed.")
-
-;; (h-sub-section
-;; "Methods Buffer"
-;; "The \"*ECB Methods*\" buffer contains all classes, methods and variables in the selected source file. When a class, method or variable is selected with the primary mouse button or ENTER/RETURN the edit buffer will jump to the method. Clicking on a method with the secondary mouse button will jump to the method in the other edit window.")
-
-;; (h-sub-section
-;; "Emacs Tips"
-;; "It's easier to navigate and scroll the ECB buffers if you install " (h-link "follow-mouse.el") " and activate your " (h-link "mwheel.el" "wheel mouse") " in Emacs.")
-;; )))
;; -------------------- HTML generation --------------------------------------
(ecb-html-top)
(ecb-html-menu)
(ecb-html-main)
-;;(ecb-html-doc)
-;; Not used anymore
-;;(ecb-html-faq)
(ecb-html-logo)
(ecb-html-links)
-;; Not used anymore
-;; (ecb-html-screenshots)
(ecb-html-old)
+(ecb-html-all-news)
View
15 html/html-helper.el
@@ -25,6 +25,7 @@
;;; Code:
(defconst h-br "<br>\n")
+(defconst h-hr "<hr>")
(defvar h-body-bgcolor)
(setq h-body-bgcolor "white")
@@ -45,6 +46,20 @@
(setq h-section-text-bgcolor "#8080a0")
(setq h-section-text-fgcolor "#000000")
+(defun h-line (&optional width-percent align)
+ (concat "<hr" (h-get-attrs
+ (delete nil
+ (list (if (numberp width-percent)
+ (cons 'width
+ (concat (number-to-string width-percent)
+ "%")))
+ (if align
+ (cons 'align
+ (if (stringp align)
+ align
+ (symbol-name align)))))))
+ ">"))
+
(defun h-date()
(format-time-string "%Y-%m-%d"))

0 comments on commit c441e18

Please sign in to comment.
Something went wrong with that request. Please try again.