Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ob-C.elc	13.79 KB	-rw-r--r--
ob-J.elc	5.38 KB	-rw-r--r--
ob-R.elc	15.77 KB	-rw-r--r--
ob-abc.elc	2.38 KB	-rw-r--r--
ob-asymptote.elc	3.67 KB	-rw-r--r--
ob-awk.elc	3.08 KB	-rw-r--r--
ob-calc.elc	2.34 KB	-rw-r--r--
ob-clojure.elc	7.16 KB	-rw-r--r--
ob-comint.elc	5.14 KB	-rw-r--r--
ob-coq.elc	2.24 KB	-rw-r--r--
ob-core.elc	99.63 KB	-rw-r--r--
ob-css.elc	888 B	-rw-r--r--
ob-ditaa.elc	3.02 KB	-rw-r--r--
ob-dot.elc	2.07 KB	-rw-r--r--
ob-ebnf.elc	1.42 KB	-rw-r--r--
ob-emacs-lisp.elc	3.22 KB	-rw-r--r--
ob-eshell.elc	3.05 KB	-rw-r--r--
ob-eval.elc	3.27 KB	-rw-r--r--
ob-exp.elc	10.81 KB	-rw-r--r--
ob-forth.elc	1.98 KB	-rw-r--r--
ob-fortran.elc	5.24 KB	-rw-r--r--
ob-gnuplot.elc	8.39 KB	-rw-r--r--
ob-groovy.elc	3.68 KB	-rw-r--r--
ob-haskell.elc	8.02 KB	-rw-r--r--
ob-hledger.elc	1.8 KB	-rw-r--r--
ob-io.elc	3.2 KB	-rw-r--r--
ob-java.elc	2.66 KB	-rw-r--r--
ob-js.elc	6.66 KB	-rw-r--r--
ob-latex.elc	6.12 KB	-rw-r--r--
ob-ledger.elc	1.71 KB	-rw-r--r--
ob-lilypond.elc	14 KB	-rw-r--r--
ob-lisp.elc	3.62 KB	-rw-r--r--
ob-lob.elc	4.97 KB	-rw-r--r--
ob-lua.elc	12.95 KB	-rw-r--r--
ob-makefile.elc	920 B	-rw-r--r--
ob-matlab.elc	500 B	-rw-r--r--
ob-maxima.elc	3.73 KB	-rw-r--r--
ob-mscgen.elc	1.32 KB	-rw-r--r--
ob-ocaml.elc	5.59 KB	-rw-r--r--
ob-octave.elc	9.69 KB	-rw-r--r--
ob-org.elc	1.67 KB	-rw-r--r--
ob-perl.elc	4.54 KB	-rw-r--r--
ob-picolisp.elc	4.53 KB	-rw-r--r--
ob-plantuml.elc	3.87 KB	-rw-r--r--
ob-processing.elc	4.58 KB	-rw-r--r--
ob-python.elc	13.04 KB	-rw-r--r--
ob-ref.elc	5.89 KB	-rw-r--r--
ob-ruby.elc	9.6 KB	-rw-r--r--
ob-sass.elc	1.5 KB	-rw-r--r--
ob-scheme.elc	6.45 KB	-rw-r--r--
ob-screen.elc	4.21 KB	-rw-r--r--
ob-sed.elc	2.7 KB	-rw-r--r--
ob-shell.elc	10.78 KB	-rw-r--r--
ob-shen.elc	1.95 KB	-rw-r--r--
ob-sql.elc	9.82 KB	-rw-r--r--
ob-sqlite.elc	4.46 KB	-rw-r--r--
ob-stan.elc	2.25 KB	-rw-r--r--
ob-table.elc	3.34 KB	-rw-r--r--
ob-tangle.elc	17.72 KB	-rw-r--r--
ob-vala.elc	3.04 KB	-rw-r--r--
ob.elc	692 B	-rw-r--r--
ol-bbdb.elc	12.23 KB	-rw-r--r--
ol-bibtex.elc	25.55 KB	-rw-r--r--
ol-docview.elc	2.05 KB	-rw-r--r--
ol-eshell.elc	1.51 KB	-rw-r--r--
ol-eww.elc	3.12 KB	-rw-r--r--
ol-gnus.elc	8.1 KB	-rw-r--r--
ol-info.elc	4.25 KB	-rw-r--r--
ol-irc.elc	5.87 KB	-rw-r--r--
ol-mhe.elc	5.32 KB	-rw-r--r--
ol-rmail.elc	2.61 KB	-rw-r--r--
ol-w3m.elc	3.82 KB	-rw-r--r--
ol.elc	55.84 KB	-rw-r--r--
org-agenda.elc	372.33 KB	-rw-r--r--
org-archive.elc	17.32 KB	-rw-r--r--
org-attach-git.elc	3.66 KB	-rw-r--r--
org-attach.elc	26.55 KB	-rw-r--r--
org-capture.elc	59.36 KB	-rw-r--r--
org-clock.elc	90.95 KB	-rw-r--r--
org-colview.elc	54.76 KB	-rw-r--r--
org-compat.elc	40.97 KB	-rw-r--r--
org-crypt.elc	6.43 KB	-rw-r--r--
org-ctags.elc	11.83 KB	-rw-r--r--
org-datetree.elc	7.31 KB	-rw-r--r--
org-duration.elc	11.6 KB	-rw-r--r--
org-element.elc	170.82 KB	-rw-r--r--
org-entities.elc	26.73 KB	-rw-r--r--
org-faces.elc	23.64 KB	-rw-r--r--
org-feed.elc	19.26 KB	-rw-r--r--
org-footnote.elc	28.36 KB	-rw-r--r--
org-goto.elc	9.24 KB	-rw-r--r--
org-habit.elc	13.51 KB	-rw-r--r--
org-id.elc	21.1 KB	-rw-r--r--
org-indent.elc	14.93 KB	-rw-r--r--
org-inlinetask.elc	8.61 KB	-rw-r--r--
org-install.el	452 B	-rw-r--r--
org-keys.elc	26.5 KB	-rw-r--r--
org-lint.elc	51.54 KB	-rw-r--r--
org-list.elc	88.99 KB	-rw-r--r--
org-loaddefs.el	89.89 KB	-rw-r--r--
org-macro.elc	11.38 KB	-rw-r--r--
org-macs.elc	38.95 KB	-rw-r--r--
org-mobile.elc	36.19 KB	-rw-r--r--
org-mouse.elc	31.71 KB	-rw-r--r--
org-num.elc	12.9 KB	-rw-r--r--
org-pcomplete.elc	12.56 KB	-rw-r--r--
org-plot.elc	9.87 KB	-rw-r--r--
org-protocol.elc	20.19 KB	-rw-r--r--
org-src.elc	38.07 KB	-rw-r--r--
org-table.elc	199.12 KB	-rw-r--r--
org-tempo.elc	4.92 KB	-rw-r--r--
org-timer.elc	14.02 KB	-rw-r--r--
org-version.el	587 B	-rw-r--r--
org.elc	700.45 KB	-rw-r--r--
ox-ascii.elc	66.43 KB	-rw-r--r--
ox-beamer.elc	34.81 KB	-rw-r--r--
ox-html.elc	129.5 KB	-rw-r--r--
ox-icalendar.elc	37.05 KB	-rw-r--r--
ox-latex.elc	116.71 KB	-rw-r--r--
ox-man.elc	31.11 KB	-rw-r--r--
ox-md.elc	23.26 KB	-rw-r--r--
ox-odt.elc	131.63 KB	-rw-r--r--
ox-org.elc	12.35 KB	-rw-r--r--
ox-publish.elc	49.05 KB	-rw-r--r--
ox-texinfo.elc	56.87 KB	-rw-r--r--
ox.elc	238.18 KB	-rw-r--r--

Code Editor : org-habit.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\322\323&\210\314\324\316\317\325DD\326\312\305\322\323&\210\314\327\316\317\330DD\331\312\305\322\323&\210\314\332\316\317\333DD\334\312\305\322\335&\210\314\336\316\317\337DD\340\312\305\322\335&\210\314\341\316\317\342DD\343\312\305\322\335&\210\314\344\316\317\345DD\346\312\305\347\350\322\351&	\210\314\352\316\317\353DD\354\312\305\347\350\322\351&	\210\314\355\316\317\356DD\357\312\305\322\335&\210\314\360\316\317\361DD\362\312\305\322\363\364\365\366\367&\210\370\371\372\373\312\305\312\374&\210\370\375\376\377\312\305\312\374&\210\370\201@�\201A�\201B�\312\305\312\374&\210\370\201C�\201D�\201B�\312\305\312\374&\210\370\201E�\201F�\201G�\312\305\312\374&\210\370\201H�\201I�\201G�\312\305\312\374&\210\370\201J�\201K�\201L�\312\305\312\374&\210\370\201M�\201N�\201L�\312\305\312\374&\207" [require cl-lib org org-agenda custom-declare-group org-habit nil "Options concerning habit tracking in Org mode." :tag "Org Habit" :group org-progress custom-declare-variable org-habit-graph-column funcall function #[0 "\300\207" [40] 1] "The absolute column at which to insert habit consistency graphs.\nNote that consistency graphs will overwrite anything else in the buffer." :type integer org-habit-preceding-days #[0 "\300\207" [21] 1] "Number of days before today to appear in consistency graphs." org-habit-following-days #[0 "\300\207" [7] 1] "Number of days after today to appear in consistency graphs." org-habit-show-habits #[0 "\300\207" [t] 1] "If non-nil, show habits in agenda buffers." boolean org-habit-show-habits-only-for-today #[0 "\300\207" [t] 1] "If non-nil, only show habits on today's agenda, and not for future days.\nNote that even when shown for future days, the graph is always\nrelative to the current effective date." org-habit-show-all-today #[0 "\300\207" [nil] 1] "If non-nil, will show the consistency graph of all habits on\ntoday's agenda, even if they are not scheduled." org-habit-today-glyph #[0 "\300\207" [33] 1] "Glyph character used to identify today." :version "24.1" character org-habit-completed-glyph #[0 "\300\207" [42] 1] "Glyph character used to show completed days on which a task was done." org-habit-show-done-always-green #[0 "\300\207" [nil] 1] "Non-nil means DONE days will always be green in the consistency graph.\nIt will be green even if it was done after the deadline." org-habit-scheduled-past-days #[0 "\300\207" [nil] 1] "Value to use instead of `org-scheduled-past-days', for habits only.\n\nIf nil, `org-scheduled-past-days' is used.\n\nSetting this to say 10000 is a way to make habits always show up\nas a reminder, even if you set `org-scheduled-past-days' to a\nsmall value because you regard scheduled items as a way of\n\"turning on\" TODO items on a particular date, rather than as a\nmeans of creating calendar-based reminders." (choice integer (const nil)) :package-version (Org . "9.3") :safe #[257 "\211\250\206�\211?\207" [] 2 "\n\n(fn V)"] custom-declare-face org-habit-clear-face ((((background light)) (:background "#8270f9")) (((background dark)) (:background "blue"))) "Face for days on which a task shouldn't be done yet." org-faces org-habit-clear-future-face ((((background light)) (:background "#d6e4fc")) (((background dark)) (:background "midnightblue"))) "Face for future days on which a task shouldn't be done yet." org-habit-ready-face ((((background light)) (:background "#4df946")) (((background dark)) (:background "forestgreen"))) "Face for days on which a task should start to be done." org-habit-ready-future-face ((((background light)) (:background "#acfca9")) (((background dark)) (:background "darkgreen"))) org-habit-alert-face ((((background light)) (:background "#f5f946")) (((background dark)) (:background "gold"))) "Face for days on which a task is due." org-habit-alert-future-face ((((background light)) (:background "#fafca9")) (((background dark)) (:background "darkgoldenrod"))) org-habit-overdue-face ((((background light)) (:background "#f9372d")) (((background dark)) (:background "firebrick"))) "Face for days on which a task is overdue." org-habit-overdue-future-face ((((background light)) (:background "#fc9590")) (((background dark)) (:background "darkred")))] 12)
#@11

(fn TS)
(defalias 'org-habit-duration-to-days #[257 "\300\301\"\203�\302\303\304\305\"!\306\304\307\"\310\"A_!\207\311\312\"\207" [string-match "\$[0-9]+\$\$[dwmy]\$" floor string-to-number match-string 1 assoc 2 (("d" . 1) ("w" . 7) ("m" . 30.4) ("y" . 365.25)) error "Invalid duration string: %s"] 7 (#$ . 4739)])
#@58 Is the task at POM or point a habit?

(fn &optional POM)
(defalias 'org-is-habit-p #[256 "\300\206�`\301\"\302\230\207" [org-entry-get "STYLE" "habit"] 4 (#$ . 5072)])
#@492 Parse the TODO surrounding point for its habit-related data.
Returns a list with the following elements:

0: Scheduled date for the habit (may be in the past)
  1: ".+"-style repeater for the schedule, in days
  2: Optional deadline (nil if not present)
  3: If deadline, the repeater for the deadline, otherwise nil
  4: A list of all the past dates this todo was mark closed
  5: Repeater type as a string

This list represents a "habit" for the rest of this module.

(fn &optional POM)
(defalias 'org-habit-parse-todo #[256 "\212\211\203�\211b\210\306`!\204�\307\310!\210\311`!\312\313`\314\"!\212\315 \210`)\316\317 8\320\211\2035�\321\322G$\210\202=�\323\322G\320$\210\266\202\320\211\211\211\211\203S�\324	!\262	\202Y�\325\326\"\210\204d�\325\327\"\210\330!\262\331\332	\"\210\333\322	\"\262\322V\204\203�\325\334\"\210\331\335	\"\203\252�\330\333\336\n\"!\262X\203\242�\325\337\n#\210Z\\\262\340\341!\210	\n\\\211\203\272�\342\202\273�\343\203\304�	\202\305�`\322\344\345\346\f!
\3475\236A\211\204\331�\350\202\367�\351\352\353!\354
B\3556B\356\357\360
B\3616B\362BBBBBB\"P\262$\204\fb\210W\203*\341#\203*\324\363\333\336!\206\333\364!!!B\262T\262\202\266\257\266\211)\207" [org-rm-props org-habit-preceding-days org-habit-following-days org-log-states-order-reversed org-done-keywords org-ts-regexp-inactive org-is-habit-p cl--assertion-failed (org-is-habit-p (point)) org-get-scheduled-time org-get-repeat org-entry-get "SCHEDULED" outline-next-heading 4 org-heading-components nil remove-text-properties 0 set-text-properties time-to-days error "Habit %s has no scheduled date" "Habit `%s' has no scheduled repeat period or has an incorrect one" org-habit-duration-to-days string-match "[\\.+]?\\+" match-string-no-properties "Habit %s scheduled repeat period is less than 1d" "/\$[0-9]+[dwmy]\$" 1 "Habit %s deadline repeat period is less than or equal to scheduled (%s)" org-back-to-heading t re-search-forward re-search-backward format "^[ 	]*-[ 	]+\$?:State \"%s\".*%s%s\$" regexp-opt done "" "\\|" org-replace-escapes regexp-quote "%d" "%D" ("%s" . "\"\\S-+\"") ("%S" . "\"\\S-+\"") "%t" "%T" (("%u" . ".*?") ("%U" . ".*?")) org-time-string-to-time 2 org-log-note-headings org-ts-regexp] 30 (#$ . 5249)])
#@14

(fn HABIT)
(defalias 'org-habit-scheduled #[257 "\211@\207" [] 2 (#$ . 7559)])
(put 'org-habit-scheduled 'byte-optimizer 'byte-compile-inline-expand)
#@14

(fn HABIT)
(defalias 'org-habit-scheduled-repeat #[257 "\211A@\207" [] 2 (#$ . 7717)])
(put 'org-habit-scheduled-repeat 'byte-optimizer 'byte-compile-inline-expand)
#@14

(fn HABIT)
(defalias 'org-habit-deadline #[257 "\3008\211\206\"�\3018\203�\211@\262\211A@\262S\\\202\"�\211@\262\207" [2 3] 5 (#$ . 7890)])
(put 'org-habit-deadline 'byte-optimizer 'byte-compile-inline-expand)
#@14

(fn HABIT)
(defalias 'org-habit-deadline-repeat #[257 "\3008\206\f�\211\211A@\262\207" [3] 3 (#$ . 8117)])
(put 'org-habit-deadline-repeat 'byte-optimizer 'byte-compile-inline-expand)
#@14

(fn HABIT)
(defalias 'org-habit-done-dates #[257 "\3008\207" [4] 3 (#$ . 8311)])
(put 'org-habit-done-dates 'byte-optimizer 'byte-compile-inline-expand)
#@14

(fn HABIT)
(defalias 'org-habit-repeat-type #[257 "\3008\207" [5] 3 (#$ . 8473)])
(put 'org-habit-repeat-type 'byte-optimizer 'byte-compile-inline-expand)
#@145 Determine the relative priority of a habit.
This must take into account not just urgency, but consistency as well.

(fn HABIT &optional MOMENT)
(defalias 'org-habit-get-priority #[513 "\300\203�\301!\202
�\302 \211@\262\3038\211\2065�\3048\2030�\211@\262\211A@\262S\\\2025�\211@\262\266\202Z\305_\\\262U\204Q�U\203Q�\306\\\262SZ\211\307V\203e�\310_\\\262\202l�\305_\\\262\210\207" [1000 time-to-days org-today 2 3 10 50 0 100] 10 (#$ . 8638)])
(put 'org-habit-get-priority 'byte-optimizer 'byte-compile-inline-expand)
#@788 Return faces for HABIT relative to NOW-DAYS and SCHEDULED-DAYS.
NOW-DAYS defaults to the current time's days-past-the-epoch if nil.
SCHEDULED-DAYS defaults to the habit's actual scheduled days if nil.

Habits are assigned colors on the following basis:
  Blue      Task is before the scheduled date.
  Green     Task is on or after scheduled date, but before the
	    end of the schedule's repeat period.
  Yellow    If the task has a deadline, then it is after schedule's
	    repeat period, but before the deadline.
  Orange    The task has reached the deadline day, or if there is
	    no deadline, the end of the schedule's repeat period.
  Red       The task has gone beyond the deadline day or the
	    schedule's repeat period.

(fn HABIT &optional NOW-DAYS SCHEDULED-DAYS DONEP)
(defalias 'org-habit-get-faces #[1025 "\206	�\211@\262\211A@\262\3018\206�\211\211A@\262\262\203*�Z\\\202P�\3028\211\206N�\3018\203I�\211@\262\211A@\262S\\\202N�\211@\262\266\202\206X�\303\304!\211W\203b�\305\202\213�\211W\203l�\306\202\213�\211U\203~�\203z�\307\202\213�\310\202\213�\203\212�\203\212�\311\202\213�\312\207" [org-habit-show-done-always-green 3 2 time-to-days nil (org-habit-clear-face . org-habit-clear-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-alert-face . org-habit-alert-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-overdue-face . org-habit-overdue-future-face)] 12 (#$ . 9196)])
#@236 Build a graph for the given HABIT, from STARTING to ENDING.
CURRENT gives the current time between STARTING and ENDING, for
the purpose of drawing the graph.  It need not be the actual
current time.

(fn HABIT STARTING CURRENT ENDING)
(defalias 'org-habit-build-graph #[1028 "\302\3038\262\304\"\211\211@\262\211A@\262\305!\305!\305!\306ZT\307\"\310\311\203F�@W\203F�@\262A\262	\202+�W\203\245WU\n\205_�@U\203s�\204s�\nW\204s�\312\202\f\313\n\205\n\205\n\3148\262\204\222�\202\211\315\267\202\254�\\\202G_Z\202@\316Z\"\211\310U\203\302�\202\303�\211\\\262\nU\203\322�\211\202\3172A\211\203\211@Z\310]\245T_\\\262\211\fU\203\373�\320\317\"\210A\266\202\202\331�\2620\266\202\262$\311\211\203:I\210\321\262\203E@U\203E@\262A\262\202\202E\203E	I\210\204M\203R@\202TA\262\203h\211\322=\204h\204hA\262\323\211T\324
%\210\323\211T\325\326\327 \330\331\305!Z!\"\"\203\223\332\202\224\333P
%\266T\262T\262\202F�\207" [org-habit-completed-glyph org-habit-today-glyph sort 4 < time-to-days make-string 32 0 nil (org-habit-clear-face . org-habit-clear-future-face) org-habit-get-faces 5 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (".+" 152 "+" 160)) mod :exit throw t org-habit-overdue-face put-text-property face help-echo format-time-string org-time-stamp-format time-add days-to-time " DONE" ""] 32 (#$ . 10742)])
#@71 Insert consistency graph for any habitual tasks.

(fn &optional LINE)
(defalias 'org-habit-insert-consistency-graphs #[256 "\306\307\310\311\312_\"\212\203�\313 \202�eb\210m?\205S�\314`\315\"\211\203L�\316\306\"\210\317\320\321\f
#\322 `Z^!\210\323\324\325\326\f!\"\327\326
!\"$!\210\210\311y\210\202�+\207" [org-extend-today-until buffer-invisibility-spec inhibit-read-only org-habit-graph-column org-habit-preceding-days org-habit-following-days t (org-link) org-time-subtract nil 3600 point-at-bol get-text-property org-habit-p move-to-column delete-char + 1 line-end-position insert-before-markers org-habit-build-graph time-subtract days-to-time time-add] 14 (#$ . 12283)])
#@47 Toggle display of habits in an agenda buffer.
(defalias 'org-habit-toggle-habits #[0 "\301\302\303\"\210?\304 \210\305 \210\306\307\203�\310\202�\311\"\207" [org-habit-show-habits org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Habits turned %s" "on" "off"] 3 (#$ . 12983) nil])
#@139 Toggle display of habits in agenda.
With ARG toggle display of all vs. undone scheduled habits.
See `org-habit-show-all-today'.

(fn ARG)
(defalias 'org-habit-toggle-display-in-agenda #[257 "\211\204�\302 \207\303\304\305\"\210?	\205�\306 \207" [org-habit-show-all-today org-habit-show-habits org-habit-toggle-habits org-agenda-check-type t agenda org-agenda-redo] 4 (#$ . 13307) "P"])
(byte-code "\301\302\303#\210\304\305!\207" [org-agenda-mode-map org-defkey "K" org-habit-toggle-display-in-agenda provide org-habit] 4)

${this.title}

Code Editor : org-habit.elc