gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add not-easily-downloadable files

Browse source 
Signed-off-by: Gwenhael Le Moine <cycojesus@darkstar.example.net>
This commit is contained in:
Gwenhael Le Moine 2010-01-18 17:22:17 +07:00
parent 7a835baa2f
commit 0de3550fa9
2 changed files with 189 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

140
e/divers-el/els/color-theme-desert.el Normal file
View file

@ -0,0 +1,140 @@
;;; color-theme-desert.el ---
;;; http://paste.lisp.org/display/89742
;; Copyright (C) Sergei Lebedev
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 3 of
;; the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be
;; useful, but WITHOUT ANY WARRANTY; without even the implied
;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE. See the GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public
;; License along with this program; if not, write to the Free
;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
;; MA 02111-1307 USA
;;
;;
;; Author: Sergei Lebedev <superbobry@gmail.com>
;; Keywords:
;; Requirements:
;; Status: not intended to be distributed yet
;; FIXME: cc-mode <type keyword> has the same color, unlike vim's desert
;;
(require 'color-theme)
(defvar desert-fg "ghost white")
(defvar desert-bg "gray20")
(defvar desert-cursor-fg "khaki")
(defvar desert-comment-fg "LightSkyBlue3")
(defvar desert-doc-fg "IndianRed3")
(defvar desert-kw-fg "khaki")
(defvar desert-function-fg "PaleGreen3")
(defvar desert-variable-fg desert-fg)
(defvar desert-type-fg "PaleGreen3") ; unfortunately, vim doesn't highlight class names, when they are defined
(defvar desert-string-fg "#ffa0a0")
(defvar desert-warning-fg "goldenrod")
(defvar desert-builtin-fg "MediumPurple3")
(defvar desert-paren-fg "PaleGreen3")
(defvar desert-hl-fg "khaki")
(defvar desert-hl-bg "olivedrab")
(defvar desert-minibuffer-fg "khaki")
(defvar desert-linum-fg "yellow")
(defvar desert-mhl-bg "gray15") ; mode-line, header-line
(defvar desert-fixme-fg "orangered")
(defvar desert-fixme-bg "yellow2")
;;;###autoload
(defun color-theme-desert ()
"Emacs color theme desert, inspired by vim desert theme."
(interactive)
(color-theme-install
(append
(list 'color-theme-desert
`((background-color . ,desert-bg)
(foreground-color . ,desert-fg)
(cursor-color . ,desert-cursor-fg)
(mouse-color . ,desert-cursor-fg)
(background-mode . dark))
`(fringe ((t (:background ,desert-bg)))) ;; hiding fringe
`(font-lock-builtin-face ((t (:foreground ,desert-builtin-fg))))
`(font-lock-comment-face ((t (:foreground ,desert-comment-fg))))
`(font-lock-comment-delimiter-face ((t (:foreground ,desert-comment-fg))))
`(font-lock-constant-face ((t (:foreground ,desert-fg))))
`(font-lock-doc-face ((t (:foreground ,desert-doc-fg))))
`(font-lock-keyword-face ((t (:foreground ,desert-kw-fg))))
`(font-lock-string-face ((t (:foreground ,desert-string-fg))))
`(font-lock-type-face ((t (:foreground ,desert-type-fg :bold t))))
`(font-lock-variable-name-face ((t (:foreground ,desert-variable-fg))))
`(font-lock-warning-face ((t (:foreground ,desert-warning-fg :bold t))))
`(font-lock-function-name-face ((t (:foreground ,desert-function-fg :bold t))))
`(minibuffer-prompt ((t (:foreground ,desert-minibuffer-fg :bold t))))
'(Buffer-menu-buffer ((t (:inherit minibuffer-prompt))))
`(header-line ((t (:background ,desert-mhl-bg :box (:color ,desert-bg :line-width 2)))))
`(mode-line ((t (:inherit header-line :foreground "gray60"))))
'(mode-line-inactive ((t (:inherit mode-line))))
`(mode-line-buffer-id ((t (:inherit mode-line :foreground ,desert-warning-fg :bold t))))
`(linum ((t (:foreground ,desert-linum-fg :background ,desert-bg))))
`(highlight ((t (:foreground ,desert-hl-fg :background ,desert-hl-bg))))
`(region ((t (:inherit highlight))))
'(show-paren-mismatch ((t (:inherit ,font-lock-warning-face :bold t))))
`(show-paren-match ((t (:foreground ,desert-paren-fg :bold t))))
'(trailing-whitespace ((t (:inherit font-lock-warning-face))))
'(match ((t (:weight bold))))
`(isearch ((t (:foreground ,desert-hl-fg :background ,desert-hl-bg))))
`(isearch-lazy-light ((t (:background ,desert-bg :foreground ,desert-fg :bold t))))
'(jabber-roster-user-chatty ((t (:inherit font-lock-type-face :bold tx))))
'(jabber-roster-user-online ((t (:inherit font-lock-keyword-face :bold t))))
`(jabber-roster-user-offline ((t (:foreground "gray40" :background ,desert-bg))))
'(jabber-roster-user-away ((t (:inherit font-lock-doc-face))))
'(jabber-roster-user-xa ((t (:inherit font-lock-doc-face))))
'(jabber-roster-user-dnd ((t (:inherit font-lock-comment-face))))
'(jabber-roster-user-error ((t (:inherit font-lock-warning-face))))
'(jabber-title-small ((t (:height 1.2 :weight bold))))
'(jabber-title-medium ((t (:inherit jabber-title-small :height 1.2))))
'(jabber-title-large ((t (:inherit jabber-title-medium :height 1.2))))
'(jabber-chat-prompt-local ((t (:inherit font-lock-string-face :bold t))))
'(jabber-chat-prompt-foreign ((t (:inherit font-lock-function-name-face :bold nil))))
'(jabber-chat-prompt-system ((t (:inherit font-lock-comment-face :bold t))))
'(jabber-rare-time-face ((t (:inherit font-lock-function-name-face :bold nil))))
'(jabber-activity-face ((t (:inherit jabber-chat-prompt-foreign))))
'(jabber-activity-personal-face ((t (:inherit jabber-chat-prompt-local :bold t))))
`(ido-first-match ((t (:foreground ,desert-function-fg))))
`(ido-only-match ((t (:foreground ,desert-function-fg))))
`(ido-subdir ((t (:inherit minibuffer-prompt))))
`(ac-candidate-face ((t (:background ,desert-mhl-bg :foreground ,desert-fg))))
'(ac-selection-face ((t (:inherit highlight))))
'(ac-completion-face ((t (:inherit ac-selection-face))))
))
)
;; Adding fixmes-todos highlight
(font-lock-add-keywords
nil '(("\\<\\(FIXME\\|TODO\\|BUG\\):" 1
'((t (:foreground desert-fixme-fg :background desert-fixme-bg))) t)))
;; Adding long lines highlight
(font-lock-add-keywords
nil '(("^[^\n]\\{100\\}\\(.*\\)$" 1 font-lock-warning-face t))))
(provide 'color-theme-desert)
;;; color-theme-desert.el ends here

49
e/divers-el/els/list-fonts.el Normal file
View file

@ -0,0 +1,49 @@
;http://www.emacswiki.org/emacs/MilesBader
;;; ----------------------------------------------------------------
;;; list-fonts-display, Miles Bader <miles@gnu.org>
(defun list-fonts-display (&optional matching)
"Display a list of font-families available via font-config, in a new buffer.
If the optional argument MATCHING is non-nil, only font families
matching that regexp are displayed; interactively, a prefix
argument will prompt for the regexp.
The name of each font family is displayed using that family, as
well as in the default font (to handle the case where a font
cannot be used to display its own name)."
(interactive
(list
(and current-prefix-arg
(read-string "Display font families matching regexp: "))))
(let (families)
(with-temp-buffer
(shell-command "fc-list : family" t)
(goto-char (point-min))
(while (not (eobp))
(let ((fam (buffer-substring (line-beginning-position)
(line-end-position))))
(when (or (null matching) (string-match matching fam))
(push fam families)))
(forward-line)))
(setq families
(sort families
(lambda (x y) (string-lessp (downcase x) (downcase y)))))
(let ((buf (get-buffer-create "*Font Families*")))
(with-current-buffer buf
(erase-buffer)
(dolist (family families)
;; We need to pick one of the comma-separated names to
;; actually use the font; choose the longest one because some
;; fonts have ambiguous general names as well as specific
;; ones.
(let ((family-name
(car (sort (split-string family ",")
(lambda (x y) (> (length x) (length y))))))
(nice-family (replace-regexp-in-string "," ", " family)))
(insert (concat (propertize nice-family
'face (list :family family-name))
" (" nice-family ")"))
(newline)))
(goto-char (point-min)))
(display-buffer buf))))