Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit 9b5ed136 authored by Julien Danjou's avatar Julien Danjou

Merge pull request #479 from GunioRobot/clean

Hi! I cleaned up your code for you!
parents 60cb1129 1a9f3051
...@@ -362,7 +362,7 @@ el-get-package-types-alist (statuses &rest types):: ...@@ -362,7 +362,7 @@ el-get-package-types-alist (statuses &rest types)::
(rainbow-delimiters . emacswiki) (rainbow-delimiters . emacswiki)
(goto-last-change . emacswiki) (goto-last-change . emacswiki)
(emacs-goodies-el . cvs)) (emacs-goodies-el . cvs))
el-get-extra-packages (&rest packages):: el-get-extra-packages (&rest packages)::
Return installed or required packages that are not in given package Return installed or required packages that are not in given package
......
...@@ -104,7 +104,7 @@ definition provided by `el-get' recipes locally. ...@@ -104,7 +104,7 @@ definition provided by `el-get' recipes locally.
The type of the package, currently el-get offers support for The type of the package, currently el-get offers support for
`apt-get', `elpa', `git', `emacsmirror', `git-svn', `bzr' `svn', `apt-get', `elpa', `git', `emacsmirror', `git-svn', `bzr' `svn',
`cvs', `darcs', `fink', `ftp', `emacswiki', `http-tar', `pacman', `cvs', `darcs', `fink', `ftp', `emacswiki', `http-tar', `pacman',
`hg' and `http'. You can easily support your own types here, `hg' and `http'. You can easily support your own types here,
see the variable `el-get-methods'. see the variable `el-get-methods'.
:branch :branch
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
:type cvs :type cvs
:module "apel" :module "apel"
:url ":pserver:anonymous@cvs.m17n.org:/cvs/root" :url ":pserver:anonymous@cvs.m17n.org:/cvs/root"
:build :build
(mapcar (mapcar
(lambda (target) (lambda (target)
(list el-get-emacs (list el-get-emacs
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
:type bzr :type bzr
:url "bzr://cedet.bzr.sourceforge.net/bzrroot/cedet/code/trunk" :url "bzr://cedet.bzr.sourceforge.net/bzrroot/cedet/code/trunk"
:build ("touch `find . -name Makefile`" "make") :build ("touch `find . -name Makefile`" "make")
:build/windows-nt ("echo #!/bin/sh > tmp.sh & echo touch `/usr/bin/find . -name Makefile` >> tmp.sh & echo make FIND=/usr/bin/find >> tmp.sh" :build/windows-nt ("echo #!/bin/sh > tmp.sh & echo touch `/usr/bin/find . -name Makefile` >> tmp.sh & echo make FIND=/usr/bin/find >> tmp.sh"
"sed 's/^M$//' tmp.sh > tmp2.sh" "sed 's/^M$//' tmp.sh > tmp2.sh"
"sh ./tmp2.sh" "rm ./tmp.sh ./tmp2.sh") "sh ./tmp2.sh" "rm ./tmp.sh ./tmp2.sh")
:load-path ("./common" "speedbar")) :load-path ("./common" "speedbar"))
...@@ -10,6 +10,6 @@ ...@@ -10,6 +10,6 @@
;; The "correct" way would be actually installing ddskk into some subdirectory. ;; The "correct" way would be actually installing ddskk into some subdirectory.
;; But it needs significant work due to the limitation of the Makefile ;; But it needs significant work due to the limitation of the Makefile
;; thus here we are trying to emulate the Makefile behaviour. ;; thus here we are trying to emulate the Makefile behaviour.
:build `(,(concat el-get-emacs :build `(,(concat el-get-emacs
" -batch -q -no-site-file -l SKK-MK -f SKK-MK-compile") " -batch -q -no-site-file -l SKK-MK -f SKK-MK-compile")
"mv skk-setup.el.in skk-setup.el")) "mv skk-setup.el.in skk-setup.el"))
\ No newline at end of file
(:name evil-numbers (:name evil-numbers
:website "http://github.com/cofi/evil-numbers" :website "http://github.com/cofi/evil-numbers"
:description "Increment/decrement numbers in Evil, the extensible vim :description "Increment/decrement numbers in Evil, the extensible vim
emulation layer. Like C-a/C-x in vim. emulation layer. Like C-a/C-x in vim.
After installation, you will need to add a key-binding for evil-numbers. After installation, you will need to add a key-binding for evil-numbers.
......
...@@ -4,13 +4,13 @@ ...@@ -4,13 +4,13 @@
:type cvs :type cvs
:module "flim" :module "flim"
:url ":pserver:anonymous@cvs.m17n.org:/cvs/root" :url ":pserver:anonymous@cvs.m17n.org:/cvs/root"
:build :build
(append (append
`((,(executable-find "cvs") ,(split-string "up -r flim-1_14-wl"))) `((,(executable-find "cvs") ,(split-string "up -r flim-1_14-wl")))
(mapcar (mapcar
(lambda (target) (lambda (target)
(list el-get-emacs (list el-get-emacs
(mapcar (lambda (pkg) (mapcar (lambda (pkg)
(mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg))) (mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg)))
'("apel")) '("apel"))
......
...@@ -7,4 +7,4 @@ ...@@ -7,4 +7,4 @@
:build ("make") :build ("make")
:load-path (".") :load-path (".")
:features matlab-load) :features matlab-load)
...@@ -2,9 +2,9 @@ ...@@ -2,9 +2,9 @@
:description "Maxframe provides the ability to maximize the emacs frame and stay within the display resolution." :description "Maxframe provides the ability to maximize the emacs frame and stay within the display resolution."
:type git :type git
:url "http://github.com/rmm5t/maxframe.el.git" :url "http://github.com/rmm5t/maxframe.el.git"
:post-init (lambda () :post-init (lambda ()
(autoload 'maximize-frame "maxframe" (autoload 'maximize-frame "maxframe"
"Maximizes the frame to fit the display if under a windowing "Maximizes the frame to fit the display if under a windowing
system." t) system." t)
(autoload 'restore-frame "maxframe" (autoload 'restore-frame "maxframe"
"Restores a maximized frame. See `maximize-frame'." t))) "Restores a maximized frame. See `maximize-frame'." t)))
...@@ -4,13 +4,13 @@ ...@@ -4,13 +4,13 @@
:type cvs :type cvs
:module "semi" :module "semi"
:url ":pserver:anonymous@cvs.m17n.org:/cvs/root" :url ":pserver:anonymous@cvs.m17n.org:/cvs/root"
:build :build
(append (append
`((,(executable-find "cvs") ,(split-string "up -r semi-1_14-wl"))) `((,(executable-find "cvs") ,(split-string "up -r semi-1_14-wl")))
(mapcar (mapcar
(lambda (target) (lambda (target)
(list el-get-emacs (list el-get-emacs
(mapcar (lambda (pkg) (mapcar (lambda (pkg)
(mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg))) (mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg)))
'("apel" "flim")) '("apel" "flim"))
......
...@@ -4,15 +4,15 @@ ...@@ -4,15 +4,15 @@
:url "http://uim.googlecode.com/svn/trunk/" :url "http://uim.googlecode.com/svn/trunk/"
:load-path ("./emacs") :load-path ("./emacs")
:build ("LC_MESSAGES=C ./make-wc.sh --prefix=`pwd`/build\ :build ("LC_MESSAGES=C ./make-wc.sh --prefix=`pwd`/build\
--disable-gnome-applet --disable-fep --without-gtk2" --disable-gnome-applet --disable-fep --without-gtk2"
"make" "make"
"make install") "make install")
:post-init (lambda () :post-init (lambda ()
(setq uim-el-agent (concat (setq uim-el-agent (concat
(file-name-as-directory (file-name-as-directory
(el-get-package-directory "uim-el")) (el-get-package-directory "uim-el"))
"emacs/uim-el-agent")) "emacs/uim-el-agent"))
(setq uim-el-helper-agent (concat (setq uim-el-helper-agent (concat
(file-name-as-directory (file-name-as-directory
(el-get-package-directory "uim-el")) (el-get-package-directory "uim-el"))
"emacs/uim-el-helper-agent")))) "emacs/uim-el-helper-agent"))))
......
(:name wanderlust (:name wanderlust
:description "Wanderlust bootstrap." :description "Wanderlust bootstrap."
:depends semi :depends semi
:type cvs :type cvs
:module "wanderlust" :module "wanderlust"
:url ":pserver:anonymous@cvs.m17n.org:/cvs/root" :url ":pserver:anonymous@cvs.m17n.org:/cvs/root"
:build (mapcar :build (mapcar
(lambda (target-and-dirs) (lambda (target-and-dirs)
(list el-get-emacs (list el-get-emacs
(mapcar (lambda (pkg) (mapcar (lambda (pkg)
(mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg))) (mapcar (lambda (d) `("-L" ,d)) (el-get-load-path pkg)))
(append (append
'("apel" "flim" "semi") '("apel" "flim" "semi")
(when (el-get-package-exists-p "bbdb") (list "bbdb")))) (when (el-get-package-exists-p "bbdb") (list "bbdb"))))
"--eval" (prin1-to-string "--eval" (prin1-to-string
'(progn (setq wl-install-utils t) '(progn (setq wl-install-utils t)
(setq wl-info-lang "en") (setq wl-info-lang "en")
(setq wl-news-lang "en"))) (setq wl-news-lang "en")))
(split-string "-batch -q -no-site-file -l WL-MK -f") (split-string "-batch -q -no-site-file -l WL-MK -f")
target-and-dirs)) target-and-dirs))
'(("wl-texinfo-format" "doc") '(("wl-texinfo-format" "doc")
("compile-wl-package" "site-lisp" "icons") ("compile-wl-package" "site-lisp" "icons")
("install-wl-package" "site-lisp" "icons"))) ("install-wl-package" "site-lisp" "icons")))
:info "doc/wl.info" :info "doc/wl.info"
:load-path ("site-lisp/wl" "utils")) :load-path ("site-lisp/wl" "utils"))
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
:type git :type git
:url "https://github.com/capitaomorte/yasnippet.git" :url "https://github.com/capitaomorte/yasnippet.git"
:features "yasnippet" :features "yasnippet"
:prepare (lambda () :prepare (lambda ()
;; Set up the default snippets directory ;; Set up the default snippets directory
;; ;;
;; Principle: don't override any user settings ;; Principle: don't override any user settings
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
;; want the default snippets, she shouldn't get ;; want the default snippets, she shouldn't get
;; them! ;; them!
(unless (or (boundp 'yas/snippet-dirs) (get 'yas/snippet-dirs 'customized-value)) (unless (or (boundp 'yas/snippet-dirs) (get 'yas/snippet-dirs 'customized-value))
(setq yas/snippet-dirs (setq yas/snippet-dirs
(list (concat el-get-dir (file-name-as-directory "yasnippet") "snippets"))))) (list (concat el-get-dir (file-name-as-directory "yasnippet") "snippets")))))
:post-init (lambda () :post-init (lambda ()
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
;; snippets directory, and thus doesn't know ;; snippets directory, and thus doesn't know
;; where those snippets will be installed. See ;; where those snippets will be installed. See
;; http://code.google.com/p/yasnippet/issues/detail?id=179 ;; http://code.google.com/p/yasnippet/issues/detail?id=179
(put 'yas/snippet-dirs 'standard-value (put 'yas/snippet-dirs 'standard-value
;; as cus-edit.el specifies, "a cons-cell ;; as cus-edit.el specifies, "a cons-cell
;; whose car evaluates to the standard ;; whose car evaluates to the standard
;; value" ;; value"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment