-
Notifications
You must be signed in to change notification settings - Fork 10
/
init.el
919 lines (801 loc) · 28.3 KB
/
init.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
;; Emacs configuration
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Change some default settings ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; General settings
(setq user-full-name "Sriram Krishnaswamy") ; Hi Emacs, I'm Sriram
(setq gc-cons-threshold (* 500 1024 1024)) ; increase the threshold for garbage collection - 100 MB
(setq delete-old-versions -1) ; delete excess backup versions silently
(setq version-control t) ; use version control for backups
(setq backup-directory-alist `(("." . "~/.emacs.d/backups"))) ; which directory to put backups file
(setq auto-save-file-name-transforms '((".*" "~/.emacs.d/auto-save-list/" t))) ; transform backups file name
(setq inhibit-startup-screen t) ; inhibit useless and old-school startup screen
(setq visible-bell nil) ; no visible bell for errors
(setq ring-bell-function 'ignore) ; silent bell when you make a mistake
(setq coding-system-for-read 'utf-8) ; use utf-8 by default for reading
(setq coding-system-for-write 'utf-8) ; use utf-8 by default for writing
(setq sentence-end-double-space nil) ; sentence SHOULD end with only a point.
(setq-default fill-column 80) ; toggle wrapping text at the 80th character
(setq initial-major-mode 'fundamental-mode) ; set the mode of the initial scratch buffer
(setq initial-scratch-message "") ; print nothing and leave screen at insert mode
(menu-bar-mode -1) ; deactivate the menubar
(tooltip-mode -1) ; deactivate the tooltip
(blink-cursor-mode -1) ; don't blink the cursor
(defun display-startup-echo-area-message () (message "Let the games begin!")) ; change the default startup echo message
(setq-default truncate-lines t) ; if line exceeds screen, let it
(setq large-file-warning-threshold (* 15 1024 1024)) ; increase threshold for large files
(fset 'yes-or-no-p 'y-or-n-p) ; prompt for 'y' or 'n' instead of 'yes' or 'no'
(setq-default abbrev-mode t) ; turn on abbreviations by default
(setq recenter-positions '(top middle bottom)) ; recenter from the top instead of the middle
(put 'narrow-to-region 'disabled nil) ; enable narrowing to region
(put 'narrow-to-defun 'disabled nil) ; enable narrowing to function
(when (fboundp 'winner-mode) ; when you can find 'winner-mode'
(winner-mode 1)) ; activate winner mode
(setq recentf-max-saved-items 1000 ; set the number of recent items to be saved
recentf-exclude '("/tmp/" "/ssh:")) ; exclude the temporary and remote files accessed recently
(setq ns-use-native-fullscreen nil) ; don't use the native fullscreen - more useful in a Mac
(setq custom-file (expand-file-name "custom.el" user-emacs-directory)) ; setup a new custom file
(when (file-exists-p custom-file) ; if the custom file exists
(load custom-file :noerror :nomessage)) ; load the custom file but don't show any messages or errors
(put 'scroll-left 'disabled nil) ; enable sideward scrolling
(define-key minibuffer-local-map (kbd "C-w") 'backward-kill-word) ; backward kill word in minibuffer
(setq enable-recursive-minibuffers t) ; use the minibuffer while using the minibuffer
(setq echo-keystrokes 0.05) ; when to echo keystrokes
(setq-default ibuffer-expert t) ; don't ask confirmation when deleting unmodified buffers
(setq frame-resize-pixelwise t) ; resize based on pixels to remove annoying gaps
(setq imenu-auto-rescan t) ; rescan automatically for new tags
;; how tabs are seen and added
(setq-default tab-width 4)
(setq-default tab-stop-list
'(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80))
;; how to interpret the command key and the option key on a Mac
(when (eq system-type 'darwin)
(setq mac-command-key-is-meta nil)
;; (setq mac-command-modifier 'meta)
(setq mac-option-key-is-meta t)
(setq mac-option-modifier 'meta))
;; General frame size and configuration plus Linux HiDPI hacks
(when (display-graphic-p)
(tool-bar-mode -1) ; deactivate the toolbar
(cond ((eq system-type 'gnu/linux) ; if system is GNU/Linux
(when (display-graphic-p)
(scroll-bar-mode -1)
(set-frame-font "DejaVu Sans Mono"))
(setq initial-frame-alist ; initial frame size
'((width . 100) ; characters in a line
(height . 45))) ; number of lines
(setq default-frame-alist ; subsequent frame size
'((width . 100) ; characters in a line
(height . 45))))
((eq system-type 'darwin) ; if system is macOS
;; (mac-auto-operator-composition-mode) ; ligature support
;; (set-frame-font "Fira Code")
(setq initial-frame-alist ; initial frame size
'((width . 100) ; characters in a line
(height . 45))) ; number of lines
(setq default-frame-alist ; subsequent frame size
'((width . 100) ; characters in a line
(height . 45))) ; number of lines
(when (display-graphic-p)
(scroll-bar-mode -1)))
((eq system-type 'windows-nt) ; if system is Windows
(set-frame-font "Lucida Sans Typewriter")
(setq initial-frame-alist ; initial frame size
'((width . 100) ; characters in a line
(height . 45))) ; number of lines
(setq default-frame-alist ; subsequent frame size
'((width . 100) ; characters in a line
(height . 45))) ; number of lines
(when (display-graphic-p)
(scroll-bar-mode -1)))))
;; dummy function
(defun sk/nothing ()
"Sends a message saying nothing mapped"
(interactive)
(message "Nothing mapped!"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Package management ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Include the module to install packages
(require 'package)
;; tells emacs not to load any packages before starting up
(setq package-enable-at-startup nil)
;; the following lines tell emacs where on the internet to look up
;; for new packages.
(setq package-archives '(("org" . "http://orgmode.org/elpa/")
("gnu" . "http://elpa.gnu.org/packages/")
("melpa" . "https://melpa.org/packages/")))
;; initialize the packages
(package-initialize)
;; allow unsigned packages
(setq package-check-signature nil)
;;;;;;;;;;;;;;;;;;;;;;;
;; use-package ;;
;;;;;;;;;;;;;;;;;;;;;;;
;; This is only needed once, near the top of the file
(eval-when-compile
;; Following line is not needed if use-package.el is in ~/.emacs.d
(add-to-list 'load-path (concat user-emacs-directory "use-package/"))
(require 'use-package))
;; Keep the mode-line clean
(use-package diminish
:ensure t
:defer t)
;; extensions for use-package
(use-package use-package-ensure-system-package
:ensure t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Built-in packages ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; directory listing
(use-package dired
:hook (dired-mode . dired-hide-details-mode)
:init
(setq dired-dwim-target t
dired-recursive-copies 'top
dired-recursive-deletes 'top
dired-listing-switches "-alh"))
;; dired library for additional functions
(use-package dired-x
:commands
(dired-jump))
;; pdf/image viewing
(use-package doc-view
:hook ((doc-view-mode . doc-view-fit-page-to-window)
(doc-view-minor-mode . doc-view-fit-page-to-window))
:init
(setq doc-view-continuous t))
;; builtin version control
(use-package vc
:init
(setq vc-make-backup-files t
vc-follow-symlinks t))
;; diff management
(use-package ediff
:init
(setq ediff-window-setup-function 'ediff-setup-windows-plain
ediff-split-window-function 'split-window-horizontally))
;; abbrev
(use-package abbrev
:diminish abbrev-mode
:init
(setq save-abbrevs 'silently)
:config
(if (file-exists-p abbrev-file-name)
(quietly-read-abbrev-file)))
;; subword navigation
(use-package subword
:hook (prog-mode . subword-mode)
:diminish subword-mode
:config
(subword-mode 1))
;; visual line - soft wrap
(defun sk/diminish-visual-line ()
"diminish visual line mode"
(interactive)
(diminish 'visual-line-mode " ω"))
(use-package visual-line
:hook ((text-mode . visual-line-mode)
(visual-line-mode . sk/diminish-visual-line))
:commands
(visual-line-mode))
;; auto fill mode
(use-package simple
:diminish auto-fill-function)
;; auto revert mode
(use-package autorevert
:defer t
:diminish auto-revert-mode)
;; documentation helper
(use-package eldoc
:hook (prog-mode . eldoc-mode)
:diminish eldoc-mode)
;; spell check
(use-package flyspell
:hook ((text-mode . flyspell-mode)
(org . flyspell-mode))
:diminish (flyspell-mode . " φ"))
;; save history
(use-package savehist
:defer t
:config
(savehist-mode 1))
;; debugging gdb
(use-package gud
:init
(setq gdb-many-windows t
gdb-show-main t)
:commands
(gud-run
gud-down
gud-up
gud-next
gud-step
gud-next
gud-finish
gud-cont
gud-goto-info
gud-basic-call
gud-print
gud-refresh
gud-find-c-expr
gdb-toggle-breakpoint
gdb-delete-breakpoint
gdb))
;; ibuffer
(use-package ibuffer
:commands
(ibuffer)
:bind (:map ibuffer-mode-map
("a a" . ibuffer-mark-by-mode)
("a s" . ibuffer-mark-special-buffers)
("a m" . ibuffer-mark-unsaved-buffers)
("a u" . ibuffer-mark-modified-buffers)
("a r" . ibuffer-mark-by-name-regexp)
("a f" . ibuffer-mark-by-file-name-regexp)
("a d" . ibuffer-mark-dired-buffers)
("a h" . ibuffer-mark-hel-buffers)))
;; line number after emacs 26
(if (version< emacs-version "26")
(message "Line number mode not activated")
(use-package display-line-numbers
:init
(setq display-line-numbers-type 'relative)
:hook ((prog-mode . display-line-numbers-mode)
(text-mode . display-line-numbers-mode))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Third party packages ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; extra functions
(add-to-list 'load-path
(expand-file-name "defuns" user-emacs-directory))
;; extra macros
(add-to-list 'load-path
(expand-file-name "macros" user-emacs-directory))
;; extra major/minor modes
(add-to-list 'load-path
(expand-file-name "modes" user-emacs-directory))
;; language specific setup
(add-to-list 'load-path
(expand-file-name "lang" user-emacs-directory))
;; other configuration
(add-to-list 'load-path
(expand-file-name "config" user-emacs-directory))
;; string manipulation library
(use-package s
:ensure t)
;; list library
(use-package dash
:ensure t)
;; copy package paths
(defun sk/init-python-path ()
"initialize the python path when opening GUI emacs"
(interactive)
(exec-path-from-shell-copy-env "PYTHONPATH")
(exec-path-from-shell-initialize))
(defun sk/init-ros-path ()
"initialize the path when opening GUI emacs"
(interactive)
(exec-path-from-shell-copy-env "ROS_IP")
(exec-path-from-shell-copy-env "ROS_ROOT")
(exec-path-from-shell-copy-env "ROS_DISTRO")
(exec-path-from-shell-copy-env "ROS_VERSION")
(exec-path-from-shell-copy-env "ROS_ETC_DIR")
(exec-path-from-shell-copy-env "ROS_MASTER_URI")
(exec-path-from-shell-copy-env "ROS_PACKAGE_PATH")
(exec-path-from-shell-copy-env "ROS_PYTHON_VERSION")
(exec-path-from-shell-copy-env "ROSLISP_PACKAGE_DIRECTORIES")
(exec-path-from-shell-initialize))
;; Make sure the path is set right for macOS after installing brew
(if (memq window-system '(mac ns))
(use-package exec-path-from-shell
:ensure t
:defer 1
:ensure-system-package
(brew ."/usr/bin/ruby -e \"$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)\"")
:bind* (("C-x x" . exec-path-from-shell-initialize)
("C-x y" . exec-path-from-shell-copy-env))
:init
(setq exec-path-from-shell-check-startup-files nil)
:config
(exec-path-from-shell-initialize))
(use-package exec-path-from-shell
:ensure t
:defer 1
:bind* (("C-x x" . exec-path-from-shell-initialize)
("C-x y" . exec-path-from-shell-copy-env))
:init
(setq exec-path-from-shell-check-startup-files nil)
:config
(sk/init-python-path)
(sk/init-ros-path)
(exec-path-from-shell-initialize)))
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Core functions ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Macros
(require 'sk-repl-macros)
;; functions
(require 'sk-buffer-defuns)
(require 'sk-dired-defuns)
(require 'sk-display-defuns)
(require 'sk-doc-defuns)
(require 'sk-editing-defuns)
(require 'sk-navigation-defuns)
(require 'sk-search-defuns)
(require 'sk-debug-defuns)
;;;;;;;;;;;;;;;;;;;;;;;;;
;; Core packages ;;
;;;;;;;;;;;;;;;;;;;;;;;;;
;; hint for bindings
(use-package which-key
:ensure t
:demand t
:diminish which-key-mode
:bind* (("C-c ?" . which-key-show-top-level))
:config
;; workaround for emacs 26
(if (version< emacs-version "26")
(message "Tracking stable Emacs")
(defalias 'display-buffer-in-major-side-window 'window--make-major-side-window))
;; turn on which key and add some names for default/common prefixes
(which-key-enable-god-mode-support)
(which-key-mode))
;; key chord for when necessary
(use-package use-package-chords
:ensure t
:demand t
:config
;; (key-chord-define-global " " 'sk/enable-ryo-modal-mode)
(key-chord-mode 1))
;; modality
(require 'sk-ryo-modal)
;; navigation
(require 'sk-nav)
;; editing
(require 'sk-edit)
;; version control
(require 'sk-versions)
;; semi modality
(require 'sk-hydra)
;; narrowing framework
(require 'sk-narrow)
;; variable for the current theme
(defvar current-theme nil
"variable for the current theme; nil for dark and non-nil for light")
;; package full of themes
(use-package doom-themes
:ensure t)
;; select a light theme and a dark theme
(defun sk/light-theme ()
"a light theme for emacs"
(interactive)
(load-theme 'doom-acario-light t)
(setq current-theme 1))
(defun sk/dark-theme ()
"a dark theme for emacs"
(interactive)
(load-theme 'doom-acario-dark t)
(setq current-theme nil))
;; choose a default theme based on GUI or TUI
(if (display-graphic-p)
(sk/light-theme)
(sk/dark-theme))
;; modeline
(use-package doom-modeline
:ensure t
:hook (after-init . doom-modeline-mode)
:init
(setq doom-modeline-height 15))
;; better file icons
(use-package all-the-icons
:ensure t
:after (doom-modeline)
:config
(add-to-list 'all-the-icons-icon-alist
'("\\.m$" all-the-icons-fileicon
"matlab" :face all-the-icons-orange)))
(when (eq system-type 'darwin)
;; fancy battery
(use-package fancy-battery
:ensure t
:init
(setq fancy-battery-show-percentage t)
:config
(fancy-battery-mode)))
;; restart emacs from emacs
(use-package restart-emacs
:ensure t
:bind* (("C-x C" . restart-emacs)))
;; treemacs for folder tree
(if (version< emacs-version "25.2")
(use-package neotree
:ensure t
;; :init
:commands
(neotree-toggle
neotree))
(use-package treemacs
:ensure t
:init
(setq treemacs-follow-after-init t
treemacs-width 33
treemacs-indentation 2
treemacs-collapse-dirs (if (executable-find "python") 3 0)
treemacs-silent-refresh nil
treemacs-change-root-without-asking nil
treemacs-sorting 'alphabetic-asc
treemacs-show-hidden-files t
treemacs-never-persist nil
treemacs-is-never-other-window nil
treemacs-goto-tag-strategy 'refetch-index)
:commands
(treemacs-toggle
treemacs)))
;; shell/tmux configuration
(require 'sk-shell)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Language support ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; emacs semantic support
(require 'sk-semantic)
;; linting/checking
(require 'sk-linter)
;; debugging
(require 'sk-debug)
;; auto completion
(require 'sk-complete)
;; emacs lisp support
(require 'sk-elisp)
;; org support
(require 'sk-org)
;; latex support
(require 'sk-latex)
;; plain text format support
(require 'sk-text)
;; lsp support
(require 'sk-lsp)
;; matlab support
(require 'sk-matlab)
;; stats support
(require 'sk-stats)
;; multiple major modes
(require 'sk-poly)
;; web support
(require 'sk-web)
;; python support
(require 'sk-python)
;; sql support
(require 'sk-sql)
;; clang based languages support
(require 'sk-clang)
;; golang support
(require 'sk-golang)
;; support for all the various config files
(require 'sk-config)
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Extra services ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; trailing whitespace management
(use-package ws-butler
:ensure t
:diminish ws-butler-mode
:commands
(ws-butler-mode
ws-butler-global-mode
ws-butler-clean-region
ws-butler-maybe-trim-eob-lines)
:hook ((after-init . ws-butler-global-mode)))
;; column margins
(use-package whitespace
:diminish whitespace-mode
:init
(setq whitespace-line-column 80)
(setq whitespace-style '(face-lines-tail))
:hook ((prog-mode . whitespace-mode)))
;; indent guides
(use-package highlight-indent-guides
:ensure t
:diminish highlight-indent-guides-mode
:init
(setq highlight-indent-guides-method 'character)
:hook ((prog-mode . highlight-indent-guides-mode))
:config
(highlight-indent-guides-mode))
;; mode specific scratch buffer
(use-package scratch
:ensure t
:commands
(scratch))
;; start background processes
(use-package prodigy
:ensure t
:commands (prodigy)
:config
(prodigy-define-tag
:name 'latexmk
:ready-message "=== Watching for updated files. Use ctrl/C to stop ...")
(prodigy-define-tag
:name 'evince
:ready-message "=== Opening PDF. Use ctrl/C to quit ...")
(prodigy-define-service
:name "latex open version pdf"
:command "evince"
:args '("build/mainv0.pdf")
:cwd (file-name-directory (vc-root-dir))
:tags '(evince)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides+notes current"
:command "latexmk"
:args '("-pdf" "-pvc" "./both.tex")
:cwd (directory-file-name default-directory)
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides current"
:command "latexmk"
:args '("-pdf" "-pvc" "./slides.tex")
:cwd (directory-file-name default-directory)
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer notes current"
:command "latexmk"
:args '("-pdf" "-pvc" "./notes.tex")
:cwd (directory-file-name default-directory)
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides+notes parent"
:command "latexmk"
:args '("-pdf" "-pvc" "./both.tex")
:cwd (file-name-directory (directory-file-name default-directory))
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides parent"
:command "latexmk"
:args '("-pdf" "-pvc" "./slides.tex")
:cwd (file-name-directory (directory-file-name default-directory))
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer notes parent"
:command "latexmk"
:args '("-pdf" "-pvc" "./notes.tex")
:cwd (file-name-directory (directory-file-name default-directory))
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides+notes project"
:command "latexmk"
:args '("-pdf" "-pvc" "./both.tex")
:cwd (file-name-directory (vc-root-dir))
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer notes project"
:command "latexmk"
:args '("-pdf" "-pvc" "./notes.tex")
:cwd (file-name-directory (vc-root-dir))
:tags '(latexmk)
:kill-signal 'sigkill)
(prodigy-define-service
:name "beamer slides project"
:command "latexmk"
:args '("-pdf" "-pvc" "./slides.tex")
:cwd (file-name-directory (vc-root-dir))
:tags '(latexmk)
:kill-signal 'sigkill))
;;;;;;;;;;;;;;;;
;; Read ;;
;;;;;;;;;;;;;;;;
;; Set executable path
(setq youtube-dl-path "/usr/bin/youtube-dl")
;; Set video storage path
(setq youtube-dl-output-dir "~/Downloads/Videos/")
(defun elfeed-download-video ()
"Download a video using youtube-dl."
(interactive)
(async-shell-command (format "%s -o \"%s%s\" -f bestvideo+bestaudio %s"
youtube-dl-path
youtube-dl-output-dir
"%(title)s.%(ext)s"
(elfeed-entry-link elfeed-show-entry))))
;; Add `youtube` tag to all videos
(defun sk/elfeed-youtube-tagger ()
"tag youtube videos autotically"
(interactive)
(elfeed-make-tagger :feed-url "youtube\\.com"
:add '(video youtube)))
;; go to bookmarked data science categories
(defun sk/elfeed-data ()
"Filters out only the links corresponding to data science"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-data"))
;; go to bookmarked editors categories
(defun sk/elfeed-editors ()
"Filters out only the links corresponding to editors"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-editors"))
;; go to bookmarked videos categories
(defun sk/elfeed-videos ()
"Filters out only the links corresponding to videos"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-videos"))
;; go to bookmarked edu categories
(defun sk/elfeed-edu ()
"Filters out only the links corresponding to edu"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-edu"))
;; go to bookmarked comics categories
(defun sk/elfeed-comics ()
"Filters out only the links corresponding to comics"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-comics"))
;; go to bookmarked blogs categories
(defun sk/elfeed-blogs ()
"Filters out only the links corresponding to blogs"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-blogs"))
;; go to all bookmarked categories
(defun sk/elfeed-all ()
"Filters out only the links corresponding to all categories"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-all"))
;; go to starred bookmarked categories
(defun sk/elfeed-starred ()
"Filters out only the links corresponding to starred categories"
(interactive)
(bookmark-maybe-load-default-file)
(bookmark-jump "elfeed-starred"))
;;write to disk when quiting
(defun sk/elfeed-save-db-and-quit ()
"Wrapper to save the elfeed db to disk before quitting"
(interactive)
(elfeed-db-save)
(quit-window))
(use-package elfeed
:ensure t
:ensure-system-package curl
:commands
(elfeed)
:hook ((elfeed-new-entry . sk/elfeed-youtube-tagger))
:init
(setq elfeed-feeds
'(;; Blogs
("https://medium.com/feed/towardsdatascience" data blogs edu)
("https://www.analyticsvidhya.com/feed/" data blogs edu)
("https://planet.emacsen.org/atom.xml" editors emacs blogs)
("https://pragmaticemacs.com/feed/" editors emacs blogs)
;; Reddit/Hackernews
("https://www.reddit.com/r/emacs/.rss" editors emacs links)
("https://www.reddit.com/r/vim/.rss" editors vim links)
("https://www.reddit.com/r/neovim/.rss" editors vim links)
;; videos
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC9-y-6csu5WGm29I7JiwpnA" video youtube cs edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCY1kMZp36IQSyNx_9h4mpCg" video youtube engg edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCYO_jab_esuFRV4b17AJtAw" video youtube math edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCHnyfMqiRRG1u-2MsSQLbXA" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCoxcjq-8xIDTYp3uz647V5A" video youtube math edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCC552Sd-3nyi_tk2BudLUzA" video youtube science edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC06E4Y_-ybJgBUMtXx8uNNw" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCcabW7890RKJzL968QWEykA" video youtube cs edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC7DdEm33SyaTDtWYGO2CwdA" video youtube science edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UChWv6Pn_zP0rI6lgGt3MyfA" video youtube engg edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UClqhvGmHcvWL9w3R48t9QXQ" video youtube engg edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUcyEsEjhPEDf69RRVhRh4A" video youtube history edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCv_vLHiWVBh_FR9vbeuiY-A" video youtube history edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC6107grRI4m0o2-emgoDnAA" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCH4BNI0-FOK2dMXoFtViWHw" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC0vBXGSyV14uvJ4hECDOl0Q" video youtube tech edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCvjgXvBlbQiydffZU7m1_aw" video youtube cs edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUHW94eEFW7hkUMVaZz4eDg" video youtube science edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCMOqf8ab-42UUQIdVoKwjlQ" video youtube engg edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UC2C_jShtL725hvbm1arSV9w" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCsXVk37bltHxD1rDPwtNM8Q" video youtube edu)
;; ("https://www.youtube.com/feeds/videos.xml?channel_id=UCBa659QWEk1AI4Tg--mrJ2A" video youtube edu)
;; comics
("https://xkcd.com/rss.xml" comics)))
:bind (:map elfeed-search-mode-map
;; filters
("D" . sk/elfeed-data)
("E" . sk/elfeed-editors)
("V" . sk/elfeed-videos)
("U" . sk/elfeed-edu)
("C" . sk/elfeed-comics)
("A" . sk/elfeed-all)
("S" . sk/elfeed-starred)
("B" . sk/elfeed-blogs)
;; commands
("q" . sk/elfeed-save-db-and-quit)
("d" . elfeed-download-video)
("*" . elfeed-toggle-star)
;; ("r" . elfeed-tag-read)
;; ("u" . elfeed-tag-unread)
("j" . elfeed-tag-junk)
("k" . elfeed-tag-not-junk)
("f" . elfeed-search-fetch))
:config
;; (defalias 'elfeed-tag-unread (elfeed-expose #'elfeed-search-tag-all 'unread))
;; (defalias 'elfeed-tag-read (elfeed-expose #'elfeed-search-untag-all 'unread))
(defalias 'elfeed-tag-junk (elfeed-expose #'elfeed-search-tag-all 'junk))
(defalias 'elfeed-tag-not-junk (elfeed-expose #'elfeed-search-untag-all 'junk))
(defalias 'elfeed-toggle-star (elfeed-expose #'elfeed-search-toggle-all 'star)))
;;;;;;;;;;;;;;;;;
;; Tasks ;;
;;;;;;;;;;;;;;;;;
(use-package todoist
:ensure t
:init
(setq todoist-backing-buffer
(concat chromeos-google-drive-path "notes/todoist.org"))
:commands
(todoist
todoist-task-menu
todoist-project-menu
todoist-show-all)
:config
(ryo-modal-major-mode-keys
'todoist-mode
("m T" todoist-task-menu :name "tasks")
("m P" todoist-project-menu :name "projects")
("m A" todoist-show-all :name "show all"))
(ryo-modal-major-mode-keys
'org-mode
("m T" todoist-task-menu :name "tasks")
("m P" todoist-project-menu :name "projects")
("m A" todoist-show-all :name "show all")))
;;;;;;;;;;;;;;;;;
;; Learn ;;
;;;;;;;;;;;;;;;;;
(use-package leetcode
:ensure t
:bind* (("C-x j" . leetcode)
("C-x t" . leetcode-try)
("C-x p" . leetcode-submit)))
;;;;;;;;;;;;;;;;;;;;;;;;
;; Key bindings ;;
;;;;;;;;;;;;;;;;;;;;;;;;
;; immutable bindings
(bind-keys*
("C-w" . sk/kill-region-or-backward-word)
("M-w" . sk/copy-region-or-line)
("M-c" . sk/toggle-letter-case)
("M-h" . sk/remove-mark)
("C-x k" . sk/kill-buffer)
("C-x w" . save-buffers-kill-terminal))
;; mutable bindings
(bind-keys
("C-o" . sk/open-line-above)
("M-o" . sk/open-line-below)
("M-n" . sk/nothing)
("M-p" . sk/nothing)
("C-x C-b" . ibuffer)
("C-c C-c" . sk/nothing)
("C-l" . flyspell-correct-previous-word-generic)
("C-c '" . sk/nothing)
("C-c C-f" . sk/nothing))
;; Misc functions
(require 'sk-misc-defuns)
;; modal bindings
(require 'sk-ryo-bindings)
(require 'sk-ryo-which-key)
;; load secret files and settings for packages if it exists
(defvar secret-file (concat user-emacs-directory "secret.el")
"file to store tokens and secrets")
(when (file-exists-p secret-file)
(load secret-file))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Reduce GC threshold ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 1 MB now
(add-hook 'after-init-hook (lambda () (setq gc-cons-threshold (* 500 1024))))