Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add column number mode and hl-line current line

  • Loading branch information...
commit 081629deb91dd9bcc71e735cb34322290410ca59 1 parent f394044
@lenage authored
View
3  .gitmodules
@@ -103,3 +103,6 @@
[submodule "vendor/autopair"]
path = vendor/autopair
url = https://github.com/emacsmirror/autopair.git
+[submodule "vendor/icicles"]
+ path = vendor/icicles
+ url = https://github.com/emacsmirror/icicles.git
View
3  lenage.el
@@ -26,7 +26,7 @@
(load "lenage/server-mode")
(load "lenage/private" 'noerror)
-;;(load "lenage/hl-line")
+(load "lenage/hl-line")
(load "lenage/iswitchb")
(vendor 'ido)
@@ -59,3 +59,4 @@
(vendor 'haskell-mode)
(vendor 'autopair)
+;;(vendor 'icicles)
View
10 lenage/defuns.el
@@ -70,6 +70,16 @@ kill all other visible buffers."
(interactive)
(insert "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Praesent libero orci, auctor sed, faucibus vestibulum, gravida vitae, arcu. Nunc posuere. Suspendisse potenti. Praesent in arcu ac nisl ultricies ultricies. Fusce eros. Sed pulvinar vehicula ante. Maecenas urna dolor, egestas vel, tristique et, porta eu, leo. Curabitur vitae sem eget arcu laoreet vulputate. Cras orci neque, faucibus et, rhoncus ac, venenatis ac, magna. Aenean eu lacus. Aliquam luctus facilisis augue. Nullam fringilla consectetuer sapien. Aenean neque augue, bibendum a, feugiat id, lobortis vel, nunc. Suspendisse in nibh quis erat condimentum pretium. Vestibulum tempor odio et leo. Sed sodales vestibulum justo. Cras convallis pellentesque augue. In eu magna. In pede turpis, feugiat pulvinar, sodales eget, bibendum consectetuer, magna. Pellentesque vitae augue."))
+(defun insert-date (prefix)
+ "Insert the current date. With prefix-argument, use ISO format. With
+ two prefix arguments, write out the day and month name."
+ (interactive "P")
+ (let ((format (cond
+ ((not prefix) "%c")
+ ((equal prefix '(4)) "%Y-%m-%d")
+ ((equal prefix '(16)) "%A, %d. %B %Y")))
+ (system-time-locale "en_US"))
+ (insert (format-time-string format))))
;; ;; Use the text around point as a cue what it is that we want from the
;; ;; editor. Allowance has to be made for the case that point is at the
;; ;; edge of a buffer.
View
8 lenage/global.el
@@ -23,8 +23,8 @@
(setq transient-mark-mode t)
;; Display line and column numbers
-(setq line-number-mode t)
-(setq column-number-mode t)
+(setq column-number-mode t)
+(setq line-number-mode t)
;; Emacs gurus don't need no stinking scroll bars
(when (fboundp 'toggle-scroll-bar)
@@ -77,11 +77,11 @@
(scroll-bar-mode 0)
(tool-bar-mode 0)
(show-paren-mode t)
-(column-number-mode)
(set-fringe-style 0)
(tooltip-mode -1)
;; Use newsticker read news
-(add-hook 'newsticker-mode-hook 'imenu-add-menubar-index)
+;;(add-hook 'newsticker-mode-hook 'imenu-add-menubar-index)
+
;; zap-up-to-char, forward-to-word, backward-to-word, etc
(require 'misc)
View
2  lenage/hl-line.el
@@ -1,6 +1,6 @@
;;; Highlight current line
-;(global-hl-line-mode 1)
+(global-hl-line-mode 1)
;; Great for black background
;(set-face-background 'hl-line "gray8")
1  vendor/icicles
@@ -0,0 +1 @@
+Subproject commit e19a4d2ca6a440336fa24e862793d2f8925d9369
Please sign in to comment.
Something went wrong with that request. Please try again.