← Back to branch summary

~rayslava/mediawiki-el/domain

« back to all changes in this revision

Viewing changes to mediawiki.el

  • Committer: Mark A. Hershberger
  • Date: 2011-06-03 13:07:47 UTC
  • Revision ID: mah@everybody.org-20110603130747-oq9xu1ko32mdg023
If no page is given, default to “Main Page”

Show diffs side-by-side

added added

removed removed

Lines of Context:
mediawiki.el
1
1
;;; mediawiki.el --- mediawiki frontend
2
2
 
3
 
;; Copyright (C) 2008, 2009, 2010 Mark A. Hershberger
 
3
;; Copyright (C) 2008, 2009, 2010, 2011 Mark A. Hershberger
4
4
 
5
5
;; Original Authors: Jerry <unidevel@yahoo.com.cn>,
6
6
;;      Chong Yidong <cyd at stupidchicken com> for wikipedia.el,
10
10
;; Created: Sep 17 2004
11
11
;; Keywords: mediawiki wikipedia network wiki
12
12
;; URL: http://launchpad.net/mediawiki-el
13
 
;; Last Modified: <2010-11-25 03:23:26 mah>
 
13
;; Last Modified: <2011-06-03 09:01:24 mah>
14
14
 
15
15
(defconst mediawiki-version "2.2.2"
16
16
  "Current version of mediawiki.el")
872
872
(defun mediawiki-translate-pagename (name)
873
873
  "Given NAME, returns the typical name that MediaWiki would use.
874
874
Right now, this only means replacing \"_\" with \" \"."
875
 
  (mapconcat 'identity (split-string name "_" t) " "))
 
875
  (if (not name)
 
876
      "Main Page"
 
877
    (mapconcat 'identity (split-string name "_" t) " ")))
876
878
 
877
879
(defun mediawiki-make-api-url (&optional sitename)
878
880
  (format (concat (mediawiki-site-url (or sitename mediawiki-site))
2060
2062
    (define-key mediawiki-mode-map "\C-\\" 'mediawiki-insert-itemize)
2061
2063
    (define-key mediawiki-mode-map [(control return)] 'mediawiki-insert-itemize)
2062
2064
    (define-key mediawiki-mode-map "\C-ca" 'auto-capitalize-mode)
2063
 
    (define-key mediawiki-mode-map "\C-ci" 'set-input-method)
2064
 
    (define-key mediawiki-mode-map "\C-ct" 'toggle-input-method)
 
2065
;    (define-key mediawiki-mode-map "\C-ci" 'set-input-method)
 
2066
;    (define-key mediawiki-mode-map "\C-ct" 'toggle-input-method)
2065
2067
 
2066
2068
    (define-key mediawiki-mode-map [(backtab)] 'mediawiki-goto-prev-link)
2067
2069
    (define-key mediawiki-mode-map [(tab)]     'mediawiki-goto-next-link)