From 5ad64c7123589aa10cb98cf3cd16ccfd31773fdb Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Mon, 30 Jan 2017 19:14:04 +0530 Subject: [PATCH] org mode, font-lock .. etc --- init.el | 51 +++++++++++++++++++++++++-------------------------- 1 file changed, 25 insertions(+), 26 deletions(-) diff --git a/init.el b/init.el index 7c7fce3..3b6b762 100644 --- a/init.el +++ b/init.el @@ -11,8 +11,11 @@ (setq initial-scratch-message "") (setq inhibit-startup-message t) +(setq initial-frame-alist (quote ((fullscreen . maximized)))) +(setq send-mail-function (quote smtpmail-send-it)) + ;; turn OFF syntax highlighting -; (global-font-lock-mode 0) +;; (global-font-lock-mode 0) ;; cursor bar (setq-default cursor-type '(bar . 2)) @@ -30,21 +33,6 @@ ;; Don't let Emacs hurt your ears (setq visible-bell t) -;; This is bound to f11 in Emacs 24.4 -;; (toggle-frame-fullscreen) -(custom-set-variables - ;; custom-set-variables was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(initial-frame-alist (quote ((fullscreen . maximized)))) - '(org-todo-keywords - (quote - ((sequence "TODO(t)" "INPROGRESS(p)" "WAIT(w)" "|" "DONE(d)" "CANCELLED(c)" "REVISIT(r)")))) - '(send-mail-function (quote smtpmail-send-it))) - -(setq org-agenda-files '("~/notes/")) - ;; Who use the bar to scroll? (when (display-graphic-p) (progn @@ -54,9 +42,9 @@ (menu-bar-mode 0))) ;; tangotango -;; (load-theme 'tangotango t) +;;(load-theme 'tangotango t) ;; (load-theme 'railscasts t) -;; (load-theme 'leuven t) +(load-theme 'leuven t) ;; erc (require 'erc) @@ -65,9 +53,9 @@ (erc-autojoin-mode t) (setq erc-autojoin-channels-alist - '((".*\\.freenode.net" "#hackage" "#tahoe-lafs") - (".*\\.oftc.net" "#debian-uk" "#debian-in") - ;; (".*\\.mozilla.org" "#rust-beginners") + '((".*\\.freenode.net" "#tahoe-lafs") + (".*\\.oftc.net" "#leastauthority") + ;;(".*\\.mozilla.org" "#rust-beginners") )) ;; check channels @@ -83,7 +71,7 @@ (when (y-or-n-p "Do you want to start IRC? ") ;; (erc-tls :server "irc.mozilla.org" :port 6697 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan") (erc-tls :server "irc.freenode.net" :port 6697 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan") - (erc-tls :server "irc.debian.org" :port 6697 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan"))) + (erc-tls :server "irc.oftc.net" :port 6697 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan"))) ;; switch to ERC with Ctrl+c e (global-set-key (kbd "C-c e") 'start-erc) ;; ERC @@ -119,10 +107,9 @@ (require 'haskell-interactive-mode) (add-hook 'haskell-mode-hook 'interactive-haskell-mode) -(custom-set-variables - '(haskell-process-suggest-remove-import-lines t) - '(haskell-process-auto-import-loaded-modules t) - '(haskell-process-log t)) +(setq haskell-process-suggest-remove-import-lines t) +(setq haskell-process-auto-import-loaded-modules t) +(setq haskell-process-log t) (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload) (define-key haskell-mode-map (kbd "C-`") 'haskell-interactive-bring) @@ -262,4 +249,16 @@ ;; flysheck (add-hook 'after-init-hook #'global-flycheck-mode) +;; org-mode +(setq org-todo-keywords + '((sequence "TODO(t)" "INPROGRESS(p)" "WAITING(w)" "|" "DONE" "CANCELLED"))) + +(setq org-agenda-files '("~/src/org/")) +(add-to-list 'load-path "~/.emacs.d/elisp") + +(require 'org-bullets) +(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))) + +;; key shortcut for org-agenda +(global-set-key (kbd "C-c a") 'org-agenda) -- 2.45.2