diff options
| -rw-r--r-- | TODO.org | 60 | ||||
| -rw-r--r-- | assets/abbrev_defs | 3 | ||||
| -rw-r--r-- | custom/faith.el | 566 | ||||
| -rw-r--r-- | init.el | 12 | ||||
| -rw-r--r-- | modules/config-utilities.el | 1 | ||||
| -rw-r--r-- | modules/keybindings.el | 16 | ||||
| -rw-r--r-- | modules/prog-general.el | 5 | ||||
| -rw-r--r-- | modules/system-utils.el | 8 | ||||
| -rw-r--r-- | modules/treesitter-config.el | 11 | ||||
| -rw-r--r-- | modules/user-constants.el | 26 |
10 files changed, 91 insertions, 617 deletions
@@ -140,8 +140,61 @@ This is the result of overriding that function in cj/invincible-buffers in syste *** DONE [#C] Bookmark-save-flag Replaces Bookmark-set-and-save CLOSED: [2024-04-03 Wed 15:00] remove cj/bookmark-set-and-save if setting bookmark-save-flat to 1 saves when adding/modifying a bookmark -** DOING Open v0.7 Fit and Finish (ends 2024.04.18) [0/3] +** DOING Open v0.7 Fit and Finish (ends 2024.04.18) [0/7] +*** TODO [#B] Get Org Gcal Working *** TODO [#B] Neither Feebleline nor Moodline Displays on Archsetup Fresh Install +*** TODO [#B] Move org-todo items into org-config use-package statement +*** TODO [#B] Separate org-agenda items into use-package statement +add after: org-roam for the function references +*** TODO [#C] Remove all unnecessarily hardcoded filenames and paths +ripgrep on "~/ to find the following. + +./modules/org-roam-config.el:16: (org-roam-directory "~/sync/org/roam/") +./modules/org-roam-config.el:27: ("v" "v2mom" plain (file "~/sync/org/roam/templates/v2mom.org") +./modules/org-roam-config.el:30: ("r" "recipe" plain (file "~/sync/org/roam/templates/recipe.org") +./modules/org-roam-config.el:33: ("p" "project" plain (file "~/sync/org/roam/templates/project.org") +./modules/org-roam-config.el:36: ("t" "topic" plain (file "~/sync/org/roam/templates/topic.org") +./modules/org-roam-config.el:116: (cj/org-roam-find-node "Topic" "t" "~/sync/org/roam/templates/topic.org")) +./modules/org-roam-config.el:121: (cj/org-roam-find-node "Recipe" "r" "~/sync/org/roam/templates/recipe.org")) +./modules/org-roam-config.el:126: (cj/org-roam-find-node "Project" "p" "~/sync/org/roam/templates/project.org")) +./modules/org-roam-config.el:146: :if-new (file+head+olp "~/sync/org/roam/inbox.org" +./modules/modeline-config.el:14:(defvar feebleline-working-directory "~/code/feebleline" +./modules/epa-config.el:15: (setq auth-sources '("~/.authinfo.gpg")) +./modules/prog-general.el:84: (projectile-project-search-path '("~/code" +./modules/prog-general.el:85: "~/projects")) +./modules/prog-go.el:35: (add-to-list 'exec-path "~/go/bin") +./modules/dirvish-config.el:55: '(("h" "~/" "home") +./modules/dirvish-config.el:58: ("co" "~/code" "code") +./modules/dirvish-config.el:59: ("df" "~/.dotfiles/" "dotfiles") +./modules/dirvish-config.el:60: ("dn" "~/downloads/" "downloads") +./modules/dirvish-config.el:61: ("dr" "~/sync/org/drill/" "org drill files") +./modules/dirvish-config.el:62: ("dt" "~/downloads/torrents/complete/" "torrents") +./modules/dirvish-config.el:63: ("dx" "~/documents/" "documents") +./modules/dirvish-config.el:64: ("gc" "~/code/golangcourse" "golang course") +./modules/dirvish-config.el:65: ("lt" "~/.local/share/Trash" "trash") +./modules/dirvish-config.el:66: ("mp" "~/sync/playlists/" "playlists") +./modules/dirvish-config.el:67: ("mv" "~/magic/video/" "magic/video") +./modules/dirvish-config.el:68: ("mx" "~/music/" "music") +./modules/dirvish-config.el:69: ("my" "~/magic/youtube/" "magic/youtube") +./modules/dirvish-config.el:70: ("or" "~/sync/org/" "sync") +./modules/dirvish-config.el:71: ("pl" "~/sync/playlists" "playlists") +./modules/dirvish-config.el:72: ("pr" "~/projects/" "projects") +./modules/dirvish-config.el:73: ("ps" "~/pictures/screenshots/" "screenshots") +./modules/dirvish-config.el:74: ("pw" "~/pictures/wallpaper" "wallpaper") +./modules/dirvish-config.el:75: ("px" "~/pictures/" "pictures") +./modules/dirvish-config.el:76: ("tg" "~/sync/org/text.games" "text games") +./modules/dirvish-config.el:77: ("vx" "~/videos/" "videos"))) +./modules/ai-config.el:52: (setq auth-sources '((:source "~/.authinfo.gpg"))) +./modules/eww-config.el:24: (setq url-cookie-file "~/.local/share/cookies.txt") +./modules/prog-training.el:25: (setq leetcode-directory "~/code/leetcode") +./modules/games-config.el:27: (setq malyon-stories-directory "~/sync/org/text.games/")) +./modules/prog-lisp.el:24:;; (load (expand-file-name "~/quicklisp/slime-helper.el")) +./modules/mail-config.el:43: (setq mu4e-root-maildir "~/.mail") ;; root directory for all email accounts +./modules/mail-config.el:195: ;; (setq smtpmail-auth-credentials (expand-file-name "~/.authinfo.gpg")) +./modules/mail-config.el:207:;; (setq smtpmail-queue-dir "~/.mail/queued-mail/")) +./modules/calibredb-epub-config.el:27: (setq calibredb-root-dir "~/sync/books/") +./modules/calibredb-epub-config.el:28: (setq calibredb-library-alist '(("~/sync/books/"))) +./modules/elfeed-config.el:129: (let ((default-directory "~/videos")) *** TODO [#C] Theme Doesn't Fallback on Wombat Correctly if No Theme Persist File *** TODO [#C] Check if Including Dired Buffers in Autorevert-mode Slows Tramp *** [#D] Resolved v0.7 Fit and Finish Work [16/16] @@ -278,6 +331,10 @@ CLOSED: [2024-04-08 Mon 16:14] CLOSED: [2024-04-10 Wed 17:16] **** DONE [#A] Fix Incorrect Refile Targets After Launch CLOSED: [2024-04-11 Thu 03:21] +**** DONE [#B] Emacs fails to open .scratch file +CLOSED: [2024-04-11 Thu 09:15] +I don't like peristent scratch as it defeats the purpose and has failed several times so far. +I should remove it. ** DOING Complete v0.7 Release Checklist [8/11] *** DOING 2 Week Fit and Finish (ends 2024.04.18) *** TODO Clean Launch from Archsetup @@ -4090,7 +4147,6 @@ Captured On: [2024-04-05 Fri 15:19] *** TODO Investigate Using Popper for Window Management Demo: https://www.youtube.com/watch?v=E-xUNlZi3rI Repo: https://github.com/karthink/popper -* Emacs Config Resolved / Completed * Emacs Config Notes ** 2023-11-03 Fri @ 18:28:36 -0500 Break Code Into Divisions CLOSED: [2023-11-03 Fri 18:28] diff --git a/assets/abbrev_defs b/assets/abbrev_defs index 922e3871..d87348b5 100644 --- a/assets/abbrev_defs +++ b/assets/abbrev_defs @@ -100,6 +100,7 @@ ("creditscards" "credit cards" nil :count 0) ("customizaton" "customization" nil :count 0) ("dacquiri" "daiquiri" nil :count 0) + ("daneel" "danneel" nil :count 0) ("daquiri" "daiquiri" nil :count 0) ("decieve" "deceive" nil :count 0) ("decypher" "decipher" nil :count 0) @@ -283,7 +284,7 @@ ("supplment" "supplement" nil :count 0) ("suprise" "surprise" nil :count 0) ("surprize" "surprise" nil :count 0) - ("takss" "tasks" nil :count 0) + ("takss" "tasks" nil :count 1) ("talekd" "talked" nil :count 0) ("talkign" "talking" nil :count 4) ("teh" "the" nil :count 55) diff --git a/custom/faith.el b/custom/faith.el deleted file mode 100644 index 8b25ff75..00000000 --- a/custom/faith.el +++ /dev/null @@ -1,566 +0,0 @@ -;;; faith.el --- hepls spreading the true faith -;; Time-stamp: <2003-08-19 13:38:28 deego> -;; GPL'ed under GNU'S public license.. -;; Copyright (C) Deepak Goel 2000 -;; Emacs Lisp Archive entry -;; Filename: faith.el -;; Author: Deepak Goel <deego@glue.umd.edu> -;; Version: 1.9 - -(defconst faith-version "1.9" - "Version number of faith.el") - -;; This file is not (yet) part of GNU Emacs. - -;; WEBSITE: http://www.glue.umd.edu/~deego/emacspub/faith/ -;; for this file and for associated READMEs LOGFILEs etc.. - -;;; Copyright (C) Deepak Goel -;; AUTHORS: Deepak Goel (deego@glue.umd.edu) , -;; Robert Fenk <Robert.Fenk@gmx.de>, -;; Roberto Selbach Teixeira <teixeira@conectiva.com> -;; Remi Vanicat<vanicat@labri.u-bordeaux.fr> - -;; YOU ARE VERY WELCOME TO CONTRIBUTE TO FAITH. YOUR SUGGESTIONS OR -;; CONTRIBUTIONS OR CORRECTIONS WILL BE CONSIDERED VERY FAVORABLY, -;; AND WILL PROVE YOUR UTMOST DEVOTION TO HIM. Even minor -;; contributions to this holy work will earn you a name on the list -;; of authors. - -;; If you have been invited to become priest (author) of faith, -;; please send deego@glue.umd.edu an email agreeing to accept the -;; "GNU FREEness" of faith, and agreeing that if at any point in -;; future, you don't agree to sign the appropriate copyleft -;; agreement, deego@glue.umd.edu will remove you from the author's -;; list. You will be promptly listed as an author. - -;; Commentary: In this world of infidelity and blasphemy, -;; FAITH tries to reinforce faith in you. - -;;; QUICKSTART INSTALLATION FOR THOSE LOST: -;;; Drop faith.el somewhere in yr load-path, and add to your .emacs: -;;; (load "faith.el") -;;; then type M-x faith, and enjoy.. - - -;;; Code: -(defconst faith-false-quotes nil - "BLASPHEMOUS QUOTES. DON'T LOOK! -A variety of false quotes collected from various places. Collected so -that the false names can be replaced by the TRUE ONE.") - -(defvar faith-user-quotes nil - "*These are any additional quotes a user might like included.") - -(defvar faith-quotes-separator "\n__________________________\n\n" - "*The string whis is inserted before a quote.") - -(defvar faith-replacement-strings nil - "True Replacements for bad Gods and other words. -Is a list of REPLACEMENTS. Each replacement is a list of BADLIST and -GOODLIST. All matches from BADLIST will be replaced by a random word -from goodlist. For consistency, the random word chosen will be the -same for the entire quote.") - -(defvar faith-user-before-replacement-strings nil - "Will be appended before faith-replacement-strings. -Allow user to define their own replacements, and together with -faith-user-after-replacement-strings, to completely edit the default -replacement-strings.. in many many novel ways the wise user may come -up with.. O user, from now on, you may customize your faith, should u -like to.. -Also see faith-user-after-replacement-strings") - -(defvar faith-user-after-replacement-strings nil - "Will be appended after faith-replacement-strings. -Allow user to define their own replacements. -Also see faith-user-before-replacement-strings") - -;; THE 'false-quotes have been picked out of books whose authors are -;; not likely to be in a position to object to the same. Current -;; sources: -;; Bible -;; Koran - - -;;;###autoload -(defun faith-insert (&rest args) - "Insert a quote right here, right now, in the current buffer" - (interactive) - (insert (apply 'faith-quote args))) - - -(defvar faith-fill-column 70) - -;; You might think some users might find no need for this -;; 'faith function. But ask me! It makes testing so easier.. -;;;###autoload -(defun faith () - "Switch to buffer *faith* and insert faith-snippets there." - (interactive) - (if (equal (buffer-name) "*faith*") - "" - (progn - (get-buffer-create "*faith*") - (switch-to-buffer "*faith*"))) - (let ((go-this-time t)) - (while go-this-time - (goto-char (point-max)) - (insert faith-quotes-separator (faith-quote)) - (goto-char (point-max)) - (recenter) - (setq fill-column faith-fill-column) - (call-interactively 'fill-paragraph) - (if (y-or-n-p "Care for more wise words? ") - nil - (setq go-this-time nil)))) - (message "Use M-x faith-correct on your own documents in order to correct them.")) - -;;;###autoload -(defun faith-quote (&optional quotes leave-alone-p ) - "Helps reinforce and spread faith in the ONE TRUE EDITOR. -Returns a randomly chosen snippet, which helps you along your search -for truth. If the argument QUOTES is supplied, it is the one used -instead of using the default source for quotes. If LEAVE-ALONE-P is -non-nil, then no faith-correction is done before insertion of the quote.. -" - (interactive) - (let* ((init-quote - (faith-false-choose - (if quotes quotes - (append faith-false-quotes faith-user-quotes)))) - (final-quote - (if leave-alone-p - init-quote - (faith-correct-string init-quote))) - (justified-quote (faith-justify-string final-quote))) - (if (interactive-p) - (message justified-quote) - justified-quote))) - -;;;###autoload -(defun faith-correct-buffer () - "Replace false Gods by the ONE TRUE GOD. -Takes a false SNIPPET, and weeds out the names of all false Gods and -prophets." - (interactive) - ;; Now, for each from in each from-list, select a random to from to-list. - ;; to-list is called tos and from-list is called froms. - (let ((case-replace t) - (case-fold-search t)) - (mapcar - (lambda (froms-tos) - (let ((tos (cadr froms-tos))) - (mapcar - (lambda (from) - (let ((this-to (nth (random* (length tos)) tos))) - (goto-char (point-min)) - (while (re-search-forward (concat "\\b" from "") - nil t) - (replace-match this-to nil nil)))) - (car froms-tos)))) - (append faith-user-before-replacement-strings - faith-replacement-strings - faith-user-after-replacement-strings)) - (buffer-substring (point-min) (point-max)))) - -;;;###autoload -(defun faith-correct-region (b e) - "Replace false Gods by the ONE TRUE GOD in region delimited by B and E." - (interactive "r") - (save-restriction - (save-excursion - (narrow-to-region b e) - (faith-correct-buffer) - (widen)))) - -;;;###autoload -(defun faith-correct-string (snippet) - "Replace false Gods by the ONE TRUE GOD. -Takes a false SNIPPET, and weeds out the names of all false Gods and -prophets." - (interactive) - (with-temp-buffer - (insert snippet) - (faith-correct-buffer) - (buffer-substring (point-min) (point-max)))) - -(defun faith-false-choose (quotes) - "Return a randomly chosen WRONG snippet. THUS NOT FOR HUMAN EYES. -Returns a randomly chosen false quote. Advice: Stay away. -Argument QUOTES is a list of quotes." - (let* ((n (random* (length quotes))) - (s (nth n quotes))) - (if (stringp s) s - (error (format "The quote at postition %d is no string." n s))))) - -(defun faith-justify-string (string) - "Justifies it.." - (with-temp-buffer - (insert string) - (fill-paragraph 1) - (buffer-substring (point-min) (point-max))) -) - -(unless faith-replacement-strings - (setq faith-replacement-strings - '( - (("allah" "buddha" "lord" "islam" "christianity" "hinduism") ("EMACS")) - (("almighty" "god") ("True Editor")) - (("adam" ) ("newbie")) - (("angel" ) ("truly free freebies")) - (("apostle") ( "book")) - (("bible" "koran") ("Emacs-manual")) - (("book") ("documentation")) - (("christ" ) ("emacs-homepage")) - (("christian" ) ("true follower")) - (("die" ) ("quit editland")) - (("gods") ("editors")) - (("earth" ) ("editland")) - (("heavens" ) ("elispland")) - (("holy spirit" ) ("holy editor")) - (("jesus" "muhammad" "muhammed" "mohammad" "mohammed") - ("gnu.org" "xemacs.org")) - (("mary") ("Gnus")) - (("Moses") ("Stallman" "RMS")) - (("the calf") ("vi")) - (("prophet") ("manual")) - (("religion") ("editing")) - (("satan") ("Microsoft" "Windoze" "VI")) - (("pray" ) ("edit")) - (("synagogue" "church") ("computer-room")) - ))) - - -(unless faith-false-quotes - (setq - faith-false-quotes - '("There shall be no compulsion in religion." - - "This Book is not to be doubted. . . . As for the unbelievers, it is -the same whether or not you forewarn them; they will not have faith. -God has set a seal upon their hearts and ears; their sight is dimmed -and grievous punishment awaits them." - - "The only true faith in God's sight is EMACS." - - "He that chooses a religion over Islam, it will not be accepted from -him and in the world to come he will be one of the lost." - - "It is not for true believers men or women to take their choice in the -affairs if God and His apostle decree otherwise. He that disobeys God -and His apostle strays far indeed." - - "God's curse be upon the infidels! Evil is that for which they have -bartered away their souls. To deny God's own revelation, grudging that -He should reveal His bounty to whom He chooses from among His -servants! They have incurred God's most inexorable wrath. An -ignominious punishment awaits the unbelievers." - - "Fight for the sake of God those that fight against you, but do not -attack them first. God does not love the aggressors. - -Slay them wherever you find them. Drive them out of the places from -which they drove you. Idolatry is worse than carnage." - - "Prophet, make war on the unbelievers and the hypocrites and deal -rigorously with them. Hell shall be their home: an evil fate." - - "The Lord is my strength and song; he has become my salvation. He is my -God, and I will praise him, my father's God, and I will exalt him." - - "Love the Lord your God with all your heart and with all your soul and -with all your strength." - - "Therefore go and make disciples of all nations, baptizing them in the -name of the Father and of the Son and the Holy Spirit, and teaching -them to obey everything I have commanded you. And surely I will be -with you always, to the very end of the age." - - "Have faith in God, Jesus answered. Therefore I tell you, whatever you -ask for in prayer, believe that you will receive it, and it will be -yours." - - "And Mary said: My soul praises the Lord and my spirit rejoices in God -my Saviour, for he has been mindful of the humble state of his -servant." - - "Jesus answered, It is written: Worship the Lord your God and serve him -only." - - "When you are brought before synagogues, rulers and authorities, do not -worry about how you will defend yourselves or what you will say, for -the Holy Spirit will teach you at that time what you should say." - - "Then Jesus cried out, When a man believes in me, he does not believe -in me only, but in the one who sent me. I have come into the world as -light, so that no one who believes in me should stay in darkness." - - "Jesus said, I am the way and the truth and the life. No one comes to -the Father except through me." - - "...Count yourselves dead to sin but alive to God in Christ Jesus." - - "May the God who gives endurance and encouragement give you a spirit of -unity among yourselves as you follow Christ Jesus ,so that with one -heart and mouth you may glorify the God and Father of our Lord Jesus -Christ." - - "May the God of hope fill you with great joy and peace as you trust in -him, so that you may overflow with hope by the power of the Holy -Spirit." - - "...God's abundant provision of grace and of the gift of righteousness -reign in life through the one and only , Jesus Christ." - - "The mind of sinful man is death, but the mind controlled by the Spirit -is life and peace, because the sinful mind is hostile to God. It does -not submit to God's law, nor can it do so. Those controlled by their -sinful nature cannot please God." - - "...No eyes have seen, no ear has heard, no mind had conceived what God -had prepared for those who love him but God had revealed it to us by his -Spirit. The spirit searches all things, even the deep things of God. For who -among men knows the thoughts of a man except the man's spirit within him? In -the same way no one knows the thoughts of God except the Spirit of God." - - "The Lord will rescue me from every evil attack and will bring me -safely to his heavenly kingdom." - - "For God did not give us a spirit of timidity, but a spirit of power, -of love and of self-discipline." - - "If you suffer as a Christian, do not be ashamed but praise God that -you bear that name." - - "Cast all your anxiety on Jesus because he cares for you." - - "57:1 All that is in heaven and earth gives glory to Allah. He is -the Mighty, the Wise One." - - "His is the kingdom of the heavens and the earth. He ordains life -and death and has power over all things." - - "He created the heavens and the earth in six days and then mounted -His throne. He knows all that goes into the earth and all that -emerges from it, all that comes down from heaven and all that -ascends to it. He is with you wherever you are. He is cognizant of -all your actions." - - "His is the kingdom of the heavens and the earth. To Him shall all -things return. He causes the night to pass into the day and the day -into the night. He has knowledge of the inmost thoughts of men." - - "24:34 Allah is the light of the heavens and the earth. His light -may be compared to a niche that enshrines a lamp, the lamp within a -crystal of star-like brilliance. It is lit from a blessed olive -tree neither eastern nor western. Its very oil would almost shine -forth, though no fire touched it. Light upon light; Allah guides to -His light whom He will." - - "24:36 As for the unbelievers, their works are like a mirage in a -desert. The thirsty traveler thinks it is water, but when he comes -near he finds that it is nothing. He finds Allah there, who pays -him back in full. Swift is Allah's reckoning." - - "Or like darkness on a bottomless ocean spread with clashing billows -and overcast with clouds: darkness upon darkness. If he stretches -out his hand he can scarcely see it. Indeed the man from whom Allah -withholds His light shall find no light at all." - - "10:80 We are the witnesses of all your thoughts and all your -prayers and all your actions. Not an atom's weight in earth or -heaven escapes your Lord, nor is there any object smaller or -greater, but is recorded in a glorious book." - - "58:7 Are you not aware that Allah knows what the heavens and the -earth contain? If three men talk in secret together, He is their -fourth; if four, He is their fifth; if five, He is their sixth; -whether fewer or more, wherever they be, He is with them. Then, on -the Day of Resurrection, He will inform them of their doings. Allah -has knowledge of all things." - - "39:39 Allah takes away men's souls upon their death, and the souls -of the living during their sleep. Those that are doomed He keeps -with Him and restores the others for a time ordained. Surely there -are signs in this for thinking men." - - "35:11 Praise be to Allah, the Creator of heaven and earth! He sends -forth the angels as His messengers, with two, three or four airs of -wings. He Multiplies His creatures according to His will. Allah has -power over all things." - - "2:32 To Adam We said: \"Dwell with your wife in Paradise and eat of -its fruits to your hearts' content wherever you will. But never -approach this tree or you shall both become transgressors.\" - -But Satan made them fall from Paradise and brought about their -banishment. \"Go hence,\" We said, \"and may your offspring be enemies -to each other. The earth will for a while provide your sustenance -and dwelling place.\" - -Then Adam received commandments from his Lord, and his Lord -relented towards him. He is the Forgiving One, the Merciful." - - "65:12 It is Allah who has created seven heavens, and earths as -many. His commandment descends through them, so that you may know -that Allah has power over all things, and that He has knowledge of -all things." - - "14:19 Do you not see that Allah has created the heavens and the -earth with truth? He can destroy you if He wills and bring into -being a new creation: that is no difficult thing for him." - - "40:67 It was He who created you from dust, making you a little -germ, and then a clot of blood. He brings you infants into the -world; you reach manhood, then decline into old age (though some of -you die young), so that you may complete your appointed term and -grow in wisdom." - - "16:75 To Allah belong the secrets of the heavens and the earth. The -business of the Final Hour shall be accomplished in the twinkling -of an eye, or even less. Allah has power over all things." - - "2:86 To Moses We gave the Scriptures and after him we sent other -apostles. We gave Jesus the son of Mary veritable signs and -strengthened him with the Holy Spirit. Will you then scorn each -apostle whose message does not suit your fancies, charging some -with imposture and slaying others?" - - "6:104 They solemnly swear by Allah that if a sign be given them -they would believe in it. Say: \"Signs are vouchsafed by Allah.\" And -how can you tell that if a sign be given them they will indeed -believe in it?" - - "We will turn away their hearts and eyes from the truth since they -refused to believe in it at first. We will leave them to blunder -about in their wrongdoing." - - "If We sent down the angels and caused the dead to speak with them, -and ranged all things before them, they would still not believe, -Unless Allah willed it. But most of them are ignorant men." - - "4:153 The People of the Book ask you to bring down for them a book -from heaven. Of Moses they demanded a harder thing than that. They -said to him: \"Show us Allah distinctly.\" And for their wickedness a -thunderbolt smote them. They worshipped the calf after We revealed -to them Our signs; yet We forgave them that, and bestowed on Moses -clear authority." - - "32:21 We gave the Scriptures to Moses (never doubt that you will -meet him) and made it a guide for Israelites. And when they grew -steadfast and firmly believed in Our revelations, We appointed -leaders from among them who gave guidance at Our bidding. On the -Day of Resurrection your Lord will resolve for them their -differences." - - "4:171 People of the Book, do not transgress the bounds of your -religion. Speak nothing but the truth about Allah. The Messiah, -Jesus the son of Mary, was no more than Allah's apostle and His -Word which he cast to Mary: a spirit from Him. So believe in Allah -and His apostles and do not say: \"Three;\" Forbear, and it shall be -better for you. Allah is but one God. Allah forbid that He should -have a son! His is all that the heavens and the earth contain. -Allah is the all-sufficient Protector. The Messiah does not disdain -to be a servant of Allah, nor do the angels who are nearer to him. -Those who through arrogance disdain His service shall all be -brought before Him." - - "73:1 You that are wrapped up in your mantle, keep vigil all night, -save for a few hours; half the night, or even less: or a little -more - and with measured tone recite the Koran, for We are about to -address to you words of surpassing gravity. It is in the watches of -the night that impressions are strongest and words most eloquent; -in the day-time you are hard-pressed with work. - -\(You need not move your tongue too fast to learn this revelation. -We Ourself shall see to its collection and recital. When We read -it, follow its words attentively; We shall Ourself explain its -meaning.)" - - "20:114 Do not be quick to recite the Koran before its revelation is -completed, but rather say: \"Lord, increase my knowledge.\"" - - "42:48 Thus We have inspired you with a spirit of Our will when you -knew nothing of faith or scripture, and made it a light whereby we -guide those of Our servants whom We please. You shall surely guide -them to the right path: the path of Allah, to whom belongs all that -the heavens and the earth contain. All things in the end return to -him." - - "25:27 The unbelievers ask: \"Why was the Koran not revealed to him -entire in a single revelation?\" - -We have revealed it thus so that We may strengthen your faith. We -have imparted it to you by gradual revelation. No sooner will they -come to you with an argument than We shall reveal to you the truth -and properly explain it. Those who will be dragged headlong into -Hell shall have an evil place to-dwell in, for they have strayed -far from the right path." - - "4:159 We have revealed Our will to you as We revealed it to Noah -and to the prophets who came after him; as We revealed it to -Abraham, Ishmael, Isaac, Jacob, and David, to whom We gave the -Psalms. Of some apostles We have already told you (how Allah spoke -directly to Moses); but there are others of whom We have not yet -spoken: apostles who brought good news to mankind and admonished -them, so that they might have no plea against Allah after their -coming. Allah is mighty and wise." - - "40:78 We have sent forth other apostles before you, of some you -have already heard, of others We have told you nothing. Yet none of -these could work a miracle except by Allah's leave. And when -Allah's will is done, justice will prevail and those who have -denied His signs will come to grief." - - "16:40 The apostles We sent before you were no more than mortals -whom We inspired with revelations and with writings. Ask the People -of the Book, ii you doubt this. To you We have revealed the Koran, -so that you may proclaim to men what has been revealed to them, and -that they may give thought." - - "13:38 We have sent forth other apostles before you and given them -wives and children. Yet none of them could work miracles except by -the will of Allah. Every age has its scripture. Allah confirms or -abrogates what He pleases. His is the Eternal Book." - - "22:46 Never have We sent a single prophet or apostle before you -with whose wishes Satan did not tamper. But Allah abrogates the -interjections of Satan and confirms His own revelations. Allah is -wise and all-knowing. He makes Satan's interjections a temptation -for those whose hearts are diseased or hardened - this is why the -wrongdoers are in open schism - so that those to whom knowledge has -been given may realize that this is the truth from your Lord and -thus believe in it and humble their hearts towards him. Allah will -surely guide the faithful to a straight path." - - "36:68 We have taught Mohammed no poetry, nor does it become him to -be a poet. This is but a warning: an eloquent Koran to admonish the -living and No pass judgment on the unbelievers." - - "29:48 Never have you read a book before this, nor have you ever -transcribed one with your right hand. Had you done either of these, -- the unbelievers might have justly doubted. But to those who are -endowed with knowledge it is an undoubted sign. Only the wrongdoers -deny Our signs." - - "68:1 By the pen, and what they write, you are not mad: thanks to -the favor of your Lord! A lasting recompense awaits you, for yours -is a sublime nature. You shall before long see - as they will see - -which of you is mad." - - "39:22 Allah has now revealed the best of scriptures, a book uniform -in style proclaiming promises and warnings. Those who fear their -Lord are filled with awe as they listen to its revelations, so that -their hearts soften at the remembrance of Allah. Such is Allah's -guidance: He bestows it on whom He will. But he whom Allah misleads -shall have none to guide him." - - "Allah is the only GOD and Muhammad is HIS only prophet." - ))) - - - - -(provide 'faith) -;;; faith.el ends here @@ -24,8 +24,8 @@ (add-to-list 'load-path (concat user-emacs-directory "modules")) (require 'user-constants) -(require 'config-utilities) ;; functions useful when modifying Emacs config -(require 'host-environment) ;; convenience functions re: host environment +(require 'config-utilities) ;; functions useful when modifying Emacs config +(require 'host-environment) ;; convenience functions re: host environment (require 'system-defaults) (require 'keybindings) @@ -56,11 +56,11 @@ (require 'eshell-vterm-config) (require 'eww-config) (require 'flyspell-config) -(require 'graphviz-config) ;; merge with latex module? +(require 'graphviz-config) ;; merge with latex module? (require 'help-utils) (require 'httpd-config) (require 'ledger-config) -(require 'local-repository) ;; wip +(require 'local-repository) ;; wip (require 'mail-config) (require 'markdown-config) (require 'modeline-config) @@ -68,7 +68,7 @@ (require 'show-kill-ring) (require 'telegram-config) (require 'tramp-config) -;; (require 'latex-config) ;; need to fix +(require 'latex-config) ;; need to fix ;; -------------------------------- Programming -------------------------------- @@ -82,7 +82,7 @@ (require 'prog-c) (require 'prog-go) (require 'prog-lisp) -(require 'prog-shell) ;; combine elsewhere +(require 'prog-shell) ;; combine elsewhere (require 'prog-python) (require 'prog-webdev) (require 'prog-yaml) diff --git a/modules/config-utilities.el b/modules/config-utilities.el index 240c6d14..aeeed5fc 100644 --- a/modules/config-utilities.el +++ b/modules/config-utilities.el @@ -40,7 +40,6 @@ Will recompile natively if supported, or byte-compiled if not." (byte-recompile-directory user-emacs-directory 0))) (message "Cancelled recompilation of %s" user-emacs-directory)))) - ;; ---------------------- Delete Emacs Home Compiled Files --------------------- ;; removes all compiled files and deletes the eln directory diff --git a/modules/keybindings.el b/modules/keybindings.el index bf23ebc4..5d8b6bdd 100644 --- a/modules/keybindings.el +++ b/modules/keybindings.el @@ -73,22 +73,6 @@ (global-set-key (kbd "C-c ?") 'hydra-general/body) -;; ------------------------------ Jump To Commands ----------------------------- -;; quick access for commonly used files - -(defvar jump-to-keymap nil "Jump-to commonly used files/directories/commands.") -(setq jump-to-keymap (make-sparse-keymap)) -(global-set-key (kbd "C-c j") jump-to-keymap) -(define-key jump-to-keymap (kbd "E") #'(lambda () (interactive) (find-file emacs-early-init-file))) -(define-key jump-to-keymap (kbd "I") #'(lambda () (interactive) (find-file emacs-init-file))) -(define-key jump-to-keymap (kbd "i") #'(lambda () (interactive) (find-file inbox-file))) -(define-key jump-to-keymap (kbd "A") #'(lambda () (interactive) (find-file article-archive))) -(define-key jump-to-keymap (kbd "a") #'(lambda () (interactive) (find-file article-file))) -(define-key jump-to-keymap (kbd "c") #'(lambda () (interactive) (find-file contacts-file))) -(define-key jump-to-keymap (kbd "s") #'(lambda () (interactive) (find-file schedule-file))) -(define-key jump-to-keymap (kbd "m") #'(lambda () (interactive) (find-file macros-file))) -(define-key jump-to-keymap (kbd "$") #'(lambda () (interactive) (find-file ledger-file))) - ;; ---------------------------- General Keybindings ---------------------------- ;; Avoid hostile bindings diff --git a/modules/prog-general.el b/modules/prog-general.el index 1f1b8e4e..b6b58494 100644 --- a/modules/prog-general.el +++ b/modules/prog-general.el @@ -125,7 +125,7 @@ If none exists, it opens magit-status." (advice-add 'ripgrep-regexp :after #'switch-to-ripgrep-results)) ;; ---------------------------------- Snippets --------------------------------- -;; reusable code and text. +;; reusable code and text (use-package yasnippet :defer 1 @@ -160,7 +160,8 @@ If none exists, it opens magit-status." (prog-mode . symbol-overlay-mode)) ;; ------------------------------ Highlight TODOs ------------------------------ -;; Highlights todo keywords in code for easy spotting +;; Highlights todo keywords in code for easy spotting. + (use-package hl-todo :defer 1 :hook diff --git a/modules/system-utils.el b/modules/system-utils.el index 62f73dc8..0592f928 100644 --- a/modules/system-utils.el +++ b/modules/system-utils.el @@ -168,14 +168,6 @@ Don't automatically display output buffers, but keep them in buffer list." ;; make scratch buffer an org-mode buffer (setq initial-major-mode 'org-mode) -;; persists scratch contents between Emacs sessions -(use-package persistent-scratch - :defer .5 - :custom - (persistent-scratch-save-file (expand-file-name ".scratch" user-emacs-directory)) - :config - (persistent-scratch-setup-default)) - ;; -------------------------------- World Clock -------------------------------- ;; displays current time in various timezones diff --git a/modules/treesitter-config.el b/modules/treesitter-config.el index c19564e6..1ceabb78 100644 --- a/modules/treesitter-config.el +++ b/modules/treesitter-config.el @@ -10,17 +10,6 @@ (use-package tree-sitter :defer .5) - ;; :hook ((ruby-mode . tree-sitter-hl-mode) - ;; (js-mode . tree-sitter-hl-mode) - ;; (rust-mode . tree-sitter-hl-mode) - ;; (sh-mode . tree-sitter-hl-mode) - ;; (c-mode . tree-sitter-hl-mode) - ;; (typescript-mode . tree-sitter-hl-mode) - ;; (go-mode . tree-sitter-hl-mode))) - -;; (use-package tree-sitter-langs -;; :ensure 'nil ;; built-in -;; :after tree-sitter) ;; ----------------------- Grammar Installation ---------------------- ;; installs tree-sitter grammars if they're absent diff --git a/modules/user-constants.el b/modules/user-constants.el index 2702f978..f42389d5 100644 --- a/modules/user-constants.el +++ b/modules/user-constants.el @@ -1,13 +1,15 @@ ;;; user-constants.el --- User Constants -*- lexical-binding: t; -*- ;;; Commentary: -;; user file locations are defined here. -;; if they aren't found, they are created. + +;; User file locations are defined here. A file or directory is created if it +;; doesn't exist. Note the keybindings at the bottom for quick access. ;;; Code: ;; ------------------------ Directory And File Constants ----------------------- +## DIRECTORIES (defconst emacs-init-file (concat user-emacs-directory "init.el") "The location of Emacs's main init file.") @@ -32,7 +34,7 @@ (defconst snippets-dir (concat sync-dir "snippets/") "The location of ya-snippet snippets.") - +### FILES (defvar schedule-file (concat sync-dir "schedule.org") "The location of the org file containing scheduled events.") @@ -80,7 +82,23 @@ article-file article-archive ledger-file - macros-file)) + macros-file)) + +;; ------------------------------ Jump To Commands ----------------------------- +;; quick access for commonly used files + +(defvar jump-to-keymap nil "Jump-to commonly used files/directories/commands.") +(setq jump-to-keymap (make-sparse-keymap)) +(global-set-key (kbd "C-c j") jump-to-keymap) +(define-key jump-to-keymap (kbd "s") #'(lambda () (interactive) (find-file schedule-file))) +(define-key jump-to-keymap (kbd "i") #'(lambda () (interactive) (find-file inbox-file))) +(define-key jump-to-keymap (kbd "c") #'(lambda () (interactive) (find-file contacts-file))) +(define-key jump-to-keymap (kbd "a") #'(lambda () (interactive) (find-file article-file))) +(define-key jump-to-keymap (kbd "A") #'(lambda () (interactive) (find-file article-archive))) +(define-key jump-to-keymap (kbd "$") #'(lambda () (interactive) (find-file ledger-file))) +(define-key jump-to-keymap (kbd "m") #'(lambda () (interactive) (find-file macros-file))) +(define-key jump-to-keymap (kbd "I") #'(lambda () (interactive) (find-file emacs-init-file))) + (provide 'user-constants) ;;; user-constants.el ends here. |