Skip to content

Instantly share code, notes, and snippets.

@codedmart

codedmart/develop.el

Created October 27, 2015 12:57
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save codedmart/35b991e46e35bf5e2499 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save codedmart/35b991e46e35bf5e2499 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
develop.el
#(" ➊  %* %I *ielm*  IELM  ⓐⓀ :run on *ielm*   utf-8 | %l:%2c  %p " 0 1
(face
(spacemacs-insert-face))
1 2
(face
(spacemacs-insert-face))
2 3
(face
(spacemacs-insert-face))
3 4
(face
((:foreground "#515151" :background "chartreuse3" :inverse-video nil)))
4 5
(face
(mode-line))
5 7
(face
(mode-line))
7 8
(face
(mode-line))
8 10
(face
(mode-line)
mouse-face mode-line-highlight local-map
(keymap
(mode-line keymap
(mouse-1 .
#[nil "?\301 \207"
[powerline-buffer-size-suffix force-mode-line-update]
1 nil nil]))))
10 11
(face
(mode-line))
11 17
(face
(mode-line-buffer-id mode-line)
help-echo "Buffer name\nmouse-1: Previous buffer\nmouse-3: Next buffer" mouse-face mode-line-highlight local-map
(keymap
(header-line keymap
(mouse-3 . mode-line-next-buffer)
(down-mouse-3 . ignore)
(mouse-1 . mode-line-previous-buffer)
(down-mouse-1 . ignore))
(mode-line keymap
(mouse-3 . mode-line-next-buffer)
(mouse-1 . mode-line-previous-buffer))))
17 18
(face
(mode-line))
18 19
(face
((:foreground "#515151" :background "grey22" :inverse-video nil)))
19 20
(face
(powerline-active1))
20 24
(face
(powerline-active1)
mouse-face mode-line-highlight help-echo "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" local-map
(keymap
(mode-line keymap
(down-mouse-3 keymap
(abbrev-mode menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
(:toggle . abbrev-mode))
(auto-fill-mode menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button
(:toggle . auto-fill-function))
(auto-revert-mode menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button
(:toggle bound-and-true-p auto-revert-mode))
(auto-revert-tail-mode menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when buffer grows" :enable
(buffer-file-name)
:button
(:toggle bound-and-true-p auto-revert-tail-mode))
(flyspell-mode menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button
(:toggle bound-and-true-p flyspell-mode))
(font-lock-mode menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button
(:toggle . font-lock-mode))
(glasses-mode menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button
(:toggle bound-and-true-p glasses-mode))
(hide-ifdef-mode menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
(:toggle bound-and-true-p hide-ifdef-mode))
(highlight-changes-mode menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button
(:toggle bound-and-true-p highlight-changes-mode))
(outline-minor-mode menu-item "Outline (Outl)" outline-minor-mode :help "" :button
(:toggle bound-and-true-p outline-minor-mode))
(overwrite-mode menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button
(:toggle . overwrite-mode))
"Minor Modes")
(mouse-2 . describe-mode)
(down-mouse-1 menu-item "Menu Bar" ignore :filter
(lambda
(_)
(mouse-menu-major-mode-map))))))
24 25
(face
(powerline-active1))
25 26
(face
((:foreground "#515151" :background "grey22" :inverse-video nil)))
26 27
(face
(mode-line))
27 28
(face
(mode-line)
local-map
(keymap
(header-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ")))
(mode-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ"))
(down-mouse-2 lambda
(event)
(interactive "@e")
(describe-minor-mode-from-indicator "ⓐ"))
(down-mouse-1 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ"))))
help-echo "company-mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor mode" mouse-face mode-line-highlight)
28 29
(face
(mode-line)
local-map
(keymap
(header-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ")))
(mode-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ"))
(down-mouse-2 lambda
(event)
(interactive "@e")
(describe-minor-mode-from-indicator "Ⓚ"))
(down-mouse-1 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ"))))
help-echo "which-key-mode\nmouse-1: Display minor mode menu\nmouse-2: Show help for minor mode\nmouse-3: Toggle minor mode" mouse-face mode-line-highlight)
29 30
(face
(mode-line))
30 44
(face
(mode-line))
44 45
(face
(mode-line))
45 46
(face
((:foreground "#515151" :background "grey40" :inverse-video nil)))
46 47
(display
((space :align-to
(-
(+ right right-fringe right-margin)
21)))
face powerline-active2)
47 48
(face
((:foreground "grey22" :background "grey40" :inverse-video nil)))
48 49
(face
(powerline-active1))
49 54
(face
(powerline-active1))
54 57
(face
(powerline-active1))
57 63
(face
(powerline-active1))
63 64
(face
(powerline-active1))
64 65
(face
((:foreground "grey22" :background "#515151" :inverse-video nil)))
65 66
(face
(mode-line))
66 68
(face
(mode-line))
68 69
(face
(mode-line)))
Raw
master.el
#(" ➊  %* %I *ielm*  IELM  ⓐ Ⓚ :run on *ielm*   utf-8 | %l:%2c  %p " 0 1
(face
(spacemacs-insert-face))
1 2
(face
(spacemacs-insert-face))
2 3
(face
(spacemacs-insert-face))
3 4
(face
((:foreground "#515151" :background "chartreuse3" :inverse-video nil)))
4 5
(face
(mode-line))
5 7
(face
(mode-line))
7 8
(face
(mode-line))
8 10
(face
(mode-line)
mouse-face mode-line-highlight local-map
(keymap
(mode-line keymap
(mouse-1 .
#[nil "?\301 \207"
[powerline-buffer-size-suffix force-mode-line-update]
1 nil nil]))))
10 11
(face
(mode-line))
11 17
(face
(mode-line-buffer-id mode-line)
help-echo "Buffer name\nmouse-1: Previous buffer\nmouse-3: Next buffer" mouse-face mode-line-highlight local-map
(keymap
(header-line keymap
(mouse-3 . mode-line-next-buffer)
(down-mouse-3 . ignore)
(mouse-1 . mode-line-previous-buffer)
(down-mouse-1 . ignore))
(mode-line keymap
(mouse-3 . mode-line-next-buffer)
(mouse-1 . mode-line-previous-buffer))))
17 18
(face
(mode-line))
18 19
(face
((:foreground "#515151" :background "grey22" :inverse-video nil)))
19 20
(face
(powerline-active1))
20 24
(face
(powerline-active1)
mouse-face mode-line-highlight help-echo "Major mode\nmouse-1: Display major mode menu\nmouse-2: Show help for major mode\nmouse-3: Toggle minor modes" local-map
(keymap
(mode-line keymap
(down-mouse-3 keymap
(abbrev-mode menu-item "Abbrev (Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
(:toggle . abbrev-mode))
(auto-fill-mode menu-item "Auto fill (Fill)" auto-fill-mode :help "Automatically insert new lines" :button
(:toggle . auto-fill-function))
(auto-revert-mode menu-item "Auto revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk changes" :button
(:toggle bound-and-true-p auto-revert-mode))
(auto-revert-tail-mode menu-item "Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer when buffer grows" :enable
(buffer-file-name)
:button
(:toggle bound-and-true-p auto-revert-tail-mode))
(flyspell-mode menu-item "Flyspell (Fly)" flyspell-mode :help "Spell checking on the fly" :button
(:toggle bound-and-true-p flyspell-mode))
(font-lock-mode menu-item "Font Lock" font-lock-mode :help "Syntax coloring" :button
(:toggle . font-lock-mode))
(glasses-mode menu-item "Glasses (o^o)" glasses-mode :help "Insert virtual separators to make long identifiers easy to read" :button
(:toggle bound-and-true-p glasses-mode))
(hide-ifdef-mode menu-item "Hide ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
(:toggle bound-and-true-p hide-ifdef-mode))
(highlight-changes-mode menu-item "Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the buffer in a distinctive color" :button
(:toggle bound-and-true-p highlight-changes-mode))
(outline-minor-mode menu-item "Outline (Outl)" outline-minor-mode :help "" :button
(:toggle bound-and-true-p outline-minor-mode))
(overwrite-mode menu-item "Overwrite (Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace existing text" :button
(:toggle . overwrite-mode))
"Minor Modes")
(mouse-2 . describe-mode)
(down-mouse-1 menu-item "Menu Bar" ignore :filter
(lambda
(_)
(mouse-menu-major-mode-map))))))
24 25
(face
(powerline-active1))
25 26
(face
((:foreground "#515151" :background "grey22" :inverse-video nil)))
26 27
(face
(mode-line))
27 28
(face
(mode-line)
local-map
(keymap
(header-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ")))
(mode-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ"))
(mouse-2 lambda
(event)
(interactive "@e")
(describe-minor-mode-from-indicator "ⓐ"))
(down-mouse-1 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "ⓐ"))))
help-echo "Minor mode\n mouse-1: Display minor mode menu\n mouse-2: Show help for minor mode\n mouse-3: Toggle minor modes" mouse-face mode-line-highlight)
28 29
(face
(mode-line))
29 30
(face
(mode-line)
local-map
(keymap
(header-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ")))
(mode-line keymap
(down-mouse-3 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ"))
(mouse-2 lambda
(event)
(interactive "@e")
(describe-minor-mode-from-indicator "Ⓚ"))
(down-mouse-1 lambda
(event)
(interactive "@e")
(minor-mode-menu-from-indicator "Ⓚ"))))
help-echo "Minor mode\n mouse-1: Display minor mode menu\n mouse-2: Show help for minor mode\n mouse-3: Toggle minor modes" mouse-face mode-line-highlight)
30 31
(face
(mode-line))
31 45
(face
(mode-line))
45 46
(face
(mode-line))
46 47
(face
((:foreground "#515151" :background "grey40" :inverse-video nil)))
47 48
(display
((space :align-to
(-
(+ right right-fringe right-margin)
21)))
face powerline-active2)
48 49
(face
((:foreground "grey22" :background "grey40" :inverse-video nil)))
49 50
(face
(powerline-active1))
50 55
(face
(powerline-active1))
55 58
(face
(powerline-active1))
58 64
(face
(powerline-active1))
64 65
(face
(powerline-active1))
65 66
(face
((:foreground "grey22" :background "#515151" :inverse-video nil)))
66 67
(face
(mode-line))
67 69
(face
(mode-line))
69 70
(face
(mode-line)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment