[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Good progress on header-line and mode-line;
no more delight-mode; much more literate titles.
Changed files
blendoit/blendoit-init.org
@@ -306,18 +306,6 @@
306
306
(require 'bind-key)
307
307
#+END_SRC
308
308
309
Removed:
*** ~delight~
310
Removed:
311
Removed:
With this package, we suppress the mention of certain minor modes in the mode
312
Removed:
line/powerline. We include it in Meta (cf. [[Meta]]) because it concerns all
313
Removed:
other packages.
314
Removed:
315
Removed:
#+BEGIN_SRC emacs-lisp
316
Removed:
(use-package delight)
317
Removed:
(delight '((org-indent-mode)
318
Removed:
(bufface-mode)))
319
Removed:
#+END_SRC
320
Removed:
321
309
** ~org-mode~
322
310
323
311
Phew, I can finally introduce Org mode! I am so *excited*.
@@ -493,8 +481,7 @@
493
481
494
482
#+NAME: flycheck
495
483
#+BEGIN_SRC emacs-lisp
496
Removed:
(use-package flycheck
497
Removed:
:delight)
484
Added:
(use-package flycheck)
498
485
(global-flycheck-mode)
499
486
#+END_SRC
500
487
@@ -502,30 +489,50 @@
502
489
503
490
#+NAME: flyspell
504
491
#+BEGIN_SRC emacs-lisp
505
Removed:
(use-package flyspell
506
Removed:
:delight)
492
Added:
(use-package flyspell)
507
493
(add-hook 'text-mode-hook 'flyspell-mode)
508
494
#+END_SRC
509
495
510
Removed:
*** ~yasnippet~
496
Added:
*** Insert template from keyword
511
497
498
Added:
Thanks to yasnippet, we can type certain keywords, press =TAB=, and this will
499
Added:
automatically insert a text snippet. We may then navigate through the snippet
500
Added:
by using =TAB= (next field) and =SHIFT-TAB= (previous field).
501
Added:
502
Added:
For instance: Typing =src= then pressing =TAB= will expand the keyword to the
503
Added:
following text:
504
Added:
505
Added:
: #+BEGIN_SRC emacs-lisp
506
Added:
:
507
Added:
: #+END_SRC
508
Added:
509
Added:
We notice that emacs-lisp is highlighted---this is the first modifiable field.
510
Added:
512
511
#+NAME: yasnippet
513
512
#+BEGIN_SRC emacs-lisp
514
Removed:
(use-package yasnippet
515
Removed:
:delight)
513
Added:
(use-package yasnippet)
516
514
(yas-global-mode 1)
517
515
#+END_SRC
518
516
519
Removed:
*** ~company~
517
Added:
*** Complete anything interactively
520
518
521
519
#+NAME: company
522
520
#+BEGIN_SRC emacs-lisp
523
521
; (add-hook 'after-init-hook 'global-company-mode)
524
522
#+END_SRC
525
523
524
Added:
*** Delete all consecutive whitespaces
525
Added:
526
Added:
#+NAME: company
527
Added:
#+BEGIN_SRC emacs-lisp
528
Added:
(use-package hungry-delete
529
Added:
:init (hungry-delete-mode))
530
Added:
#+END_SRC
531
Added:
526
532
** Utilities
527
Removed:
*** ~magit~
528
533
534
Added:
*** Versioning of files
535
Added:
529
536
Wonderful Git porcelain for Emacs. Enables the administration of a Git
530
537
repository in a pain-free way.
531
538
@@ -534,68 +541,61 @@
534
541
:bind ("C-c g" . magit-status))
535
542
#+END_SRC
536
543
537
Removed:
*** ~projectile~
544
Added:
*** Navigate between projects
538
545
539
546
This enables us to better manage our =.git= projects.
540
547
541
548
#+BEGIN_SRC emacs-lisp
542
549
(use-package projectile
543
550
:bind ("C-c p" . 'projectile-command-map)
544
Removed:
:delight
545
551
:init (projectile-mode 1)
546
552
(setq projectile-completion-system 'ivy))
547
553
#+END_SRC
548
554
549
Removed:
*** ~which-key~
555
Added:
*** Display keyboard shortcuts on screen
550
556
551
557
#+BEGIN_SRC emacs-lisp
552
558
(use-package which-key
553
Removed:
:init (which-key-mode)
554
Removed:
:delight)
559
Added:
:init (which-key-mode))
555
560
#+END_SRC
556
561
557
Removed:
*** ~dumb-jump~
562
Added:
*** Jump to symbol's definition
558
563
559
564
#+BEGIN_SRC emacs-lisp
560
565
(use-package dumb-jump)
561
566
(add-hook 'xref-backend-functions #'dumb-jump-xref-activate)
562
567
#+END_SRC
563
568
564
Removed:
*** ~undo-tree~
569
Added:
*** Graphical representation of file history
565
570
566
571
#+BEGIN_SRC emacs-lisp
567
Removed:
(use-package undo-tree
568
Removed:
:delight)
572
Added:
(use-package undo-tree)
569
573
(global-undo-tree-mode)
570
574
#+END_SRC
571
575
572
Removed:
*** ~ivy~
576
Added:
*** Auto-completion framework
573
577
574
Removed:
Auto completion.
575
Removed:
576
578
#+BEGIN_SRC emacs-lisp
577
579
(use-package ivy
578
Removed:
:delight
579
580
:config (setq ivy-use-virtual-buffers t
580
581
ivy-count-format "%d/%d "
581
582
enable-recursive-minibuffers t))
582
583
(ivy-mode t)
583
584
#+END_SRC
584
585
585
Removed:
**** ~counsel~
586
Added:
**** Smartly suggesting interactive search matches
586
587
587
588
Wonderful counsellor!
588
589
589
590
#+BEGIN_SRC emacs-lisp
590
591
(use-package counsel
591
592
:bind ("M-x" . counsel-M-x)
592
Removed:
:delight
593
593
:config (counsel-mode t))
594
594
595
595
(global-set-key (kbd "C-f") 'counsel-grep-or-swiper)
596
596
#+END_SRC
597
597
598
Removed:
**** ~swiper~
598
Added:
**** Searching for items
599
599
600
600
#+BEGIN_SRC emacs-lisp
601
601
(use-package swiper
@@ -604,20 +604,23 @@
604
604
605
605
** File formats
606
606
607
Removed:
*** ~csv-mode~
607
Added:
*** =csv= and Excel
608
608
609
609
#+BEGIN_SRC emacs-lisp
610
610
(use-package csv-mode)
611
611
#+END_SRC
612
612
613
Removed:
*** ~pdf-tools~
613
Added:
*** Interacting with PDFs
614
614
615
Added:
Org mode shines particularly when exporting to PDF---Org files can reliably be
616
Added:
shared and exported to PDF in a reproducible fashion.
617
Added:
615
618
#+BEGIN_SRC emacs-lisp
616
619
(use-package pdf-tools)
617
620
;; (pdf-tools-install)
618
621
#+END_SRC
619
622
620
Removed:
*** ~ledger~
623
Added:
*** Accounting
621
624
622
625
#+BEGIN_SRC emacs-lisp
623
626
(use-package ledger-mode
@@ -626,7 +629,7 @@
626
629
("C-c C" . ledger-mode-clean-buffer))
627
630
#+END_SRC
628
631
629
Removed:
*** ~gnuplot~
632
Added:
*** Plotting & charting
630
633
631
634
#+BEGIN_SRC emacs-lisp
632
635
(use-package gnuplot)
@@ -634,14 +637,13 @@
634
637
635
638
** Cosmetics
636
639
637
Removed:
*** ~dashboard~
640
Added:
*** Start page
638
641
639
642
We replace the standard welcome screen with our own.
640
643
641
644
#+BEGIN_SRC emacs-lisp
642
645
(setq inhibit-startup-message t)
643
646
(use-package dashboard
644
Removed:
:delight
645
647
:config
646
648
(dashboard-setup-startup-hook)
647
649
(setq dashboard-startup-banner (concat user-emacs-directory "img/Safran_logo.svg"))
@@ -650,12 +652,11 @@
650
652
(setq dashboard-banner-logo-title "A modern professional text editor."))
651
653
#+END_SRC
652
654
653
Removed:
*** ~powerline~
655
Added:
*** Mode line
654
656
655
657
#+NAME: powerline
656
658
#+BEGIN_SRC emacs-lisp
657
659
(use-package powerline)
658
Removed:
(powerline-default-theme)
659
660
#+END_SRC
660
661
661
662
*** TODO Sidebar
@@ -671,23 +672,17 @@
671
672
(use-package rainbow-delimiters
672
673
:config (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))
673
674
(electric-pair-mode)
675
Added:
(show-paren-mode 1)
674
676
#+END_SRC
675
677
676
Removed:
*** ~all-the-icons~
678
Added:
*** Colored keywords for those colors
677
679
678
Removed:
#+BEGIN_SRC emacs-lisp
679
Removed:
(use-package all-the-icons)
680
Removed:
#+END_SRC
681
Removed:
682
Removed:
*** ~rainbow-mode~
683
Removed:
684
680
This highlights hexadecimal numbers which look like colors, in that same color.
685
681
686
682
#+BEGIN_SRC emacs-lisp
687
683
(use-package rainbow-mode
688
684
:init
689
Removed:
(add-hook 'prog-mode-hook 'rainbow-mode)
690
Removed:
:delight)
685
Added:
(add-hook 'prog-mode-hook 'rainbow-mode))
691
686
#+END_SRC
692
687
693
688
* Editing preferences
@@ -738,65 +733,47 @@
738
733
(menu-bar-bottom-and-right-window-divider)
739
734
#+END_SRC
740
735
741
Removed:
*** TODO Mode line
736
Added:
*** TODO Header & mode line
742
737
Complete mode line rewrite. Might require new package.
743
738
744
Removed:
Top of the buffer is more intuitive.
739
Added:
Top of the buffer is more intuitive for buffer info, bottom is more intuitive
740
Added:
for buffer action.
745
741
742
Added:
This is pretty much a gutted out powerline.
743
Added:
744
Added:
**** Header line
745
Added:
746
746
#+BEGIN_SRC emacs-lisp
747
Removed:
;; (setq header-line-format
748
Removed:
;; '(:eval
749
Removed:
;; (let* ((active (powerline-selected-window-active))
750
Removed:
;; (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive))
751
Removed:
;; (mode-line (if active 'mode-line 'mode-line-inactive))
752
Removed:
;; (face0 (if active 'powerline-active0 'powerline-inactive0))
753
Removed:
;; (face1 (if active 'powerline-active1 'powerline-inactive1))
754
Removed:
;; (face2 (if active 'powerline-active2 'powerline-inactive2))
755
Removed:
;; (separator-left (intern (format "powerline-%s-%s"
756
Removed:
;; (powerline-current-separator)
757
Removed:
;; (car powerline-default-separator-dir))))
758
Removed:
;; (separator-right (intern (format "powerline-%s-%s"
759
Removed:
;; (powerline-current-separator)
760
Removed:
;; (cdr powerline-default-separator-dir))))
761
Removed:
;; (lhs (list (powerline-raw "%*" face0 'l)
762
Removed:
;; (when powerline-display-buffer-size
763
Removed:
;; (powerline-buffer-size face0 'l))
764
Removed:
;; (when powerline-display-mule-info
765
Removed:
;; (powerline-raw mode-line-mule-info face0 'l))
766
Removed:
;; (powerline-buffer-id `(mode-line-buffer-id ,face0) 'l)
767
Removed:
;; (when (and (boundp 'which-func-mode) which-func-mode)
768
Removed:
;; (powerline-raw which-func-format face0 'l))
769
Removed:
;; (powerline-raw " " face0)
770
Removed:
;; (funcall separator-left face0 face1)
771
Removed:
;; (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
772
Removed:
;; (powerline-raw erc-modified-channels-object face1 'l))
773
Removed:
;; (powerline-major-mode face1 'l)
774
Removed:
;; (powerline-process face1)
775
Removed:
;; (powerline-minor-modes face1 'l)
776
Removed:
;; (powerline-narrow face1 'l)
777
Removed:
;; (powerline-raw " " face1)
778
Removed:
;; (funcall separator-left face1 face2)
779
Removed:
;; (powerline-vc face2 'r)
780
Removed:
;; (when (bound-and-true-p nyan-mode)
781
Removed:
;; (powerline-raw (list (nyan-create)) face2 'l))))
782
Removed:
;; (rhs (list (powerline-raw global-mode-string face2 'r)
783
Removed:
;; (funcall separator-right face2 face1)
784
Removed:
;; (unless window-system
785
Removed:
;; (powerline-raw (char-to-string #xe0a1) face1 'l))
786
Removed:
;; (powerline-raw "%4l" face1 'l)
787
Removed:
;; (powerline-raw ":" face1 'l)
788
Removed:
;; (powerline-raw "%3c" face1 'r)
789
Removed:
;; (funcall separator-right face1 face0)
790
Removed:
;; (powerline-raw " " face0)
791
Removed:
;; (powerline-raw "%6p" face0 'r)
792
Removed:
;; (when powerline-display-hud
793
Removed:
;; (powerline-hud face0 face2))
794
Removed:
;; (powerline-fill face0 0)
795
Removed:
;; )))
796
Removed:
;; (concat("%b")
797
Removed:
;; (separator)
798
Removed:
;; (buttons))))
747
Added:
(defun my/header-line ()
748
Added:
"My header line, yo."
749
Added:
(setq header-line-format
750
Added:
'("%e"
751
Added:
(:eval
752
Added:
(let* ((active (powerline-selected-window-active))
753
Added:
(face0 (if active 'powerline-active0 'powerline-inactive0))
754
Added:
(lhs (list (powerline-raw "%b" face0)))
755
Added:
(rhs (list (if (buffer-modified-p)
756
Added:
(powerline-raw "Modified" face0 'r)
757
Added:
"I did it!")
758
Added:
(powerline-fill face0 0))))
759
Added:
(concat (powerline-render lhs)
760
Added:
(powerline-fill face0
761
Added:
(powerline-width rhs))
762
Added:
(powerline-render rhs)))))))
763
Added:
764
Added:
(add-hook 'find-file-hook #'my/header-line)
799
765
#+END_SRC
766
Added:
767
Added:
**** Mode line
768
Added:
769
Added:
#+BEGIN_SRC emacs-lisp
770
Added:
(defun my/mode-line ()
771
Added:
"My header line, yo."
772
Added:
(setq mode-line-format "%b"))
773
Added:
774
Added:
(add-hook 'find-file-hook #'my/mode-line)
775
Added:
#+END_SRC
776
Added:
800
777
801
778
** Window
802
779
init-custom.el
@@ -94,7 +94,7 @@
94
94
'(org-log-done 'time)
95
95
'(org-startup-align-all-tables t)
96
96
'(package-selected-packages
97
Removed:
'(smooth-scroll smooth-scrolling delight yasnippet-snippets yasnippet org-sticky-header awesome-tab tabbar-ruler tabbar-mode linum-relative dumb-jump csv-mode rainbow-mode org-mouse projectile minimap gnuplot ledger-mode company-mode wombat-theme wombar-theme which-key srefactor-lisp srefactor all-the-icons flycheck ibuffer-sidebar pdf-tools magit rainbow-delimiters smartparens mixed-pitch org-bullets use-package tabbar powerline ivy-hydra flatui-theme evil counsel company benchmark-init))
97
Added:
'(hungry-delete smooth-scroll smooth-scrolling delight yasnippet-snippets yasnippet org-sticky-header awesome-tab tabbar-ruler tabbar-mode linum-relative dumb-jump csv-mode rainbow-mode org-mouse projectile minimap gnuplot ledger-mode company-mode wombat-theme wombar-theme which-key srefactor-lisp srefactor all-the-icons flycheck ibuffer-sidebar pdf-tools magit rainbow-delimiters smartparens mixed-pitch org-bullets use-package tabbar powerline ivy-hydra flatui-theme evil counsel company benchmark-init))
98
98
'(pdf-view-midnight-colors '("#DCDCCC" . "#383838"))
99
99
'(save-place-mode t)
100
100
'(send-mail-function 'smtpmail-send-it)