forked from l3kn/org-fc
-
Notifications
You must be signed in to change notification settings - Fork 0
/
org-fc-compat.el
112 lines (85 loc) · 3.46 KB
/
org-fc-compat.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
;;; org-fc-compat.el --- Compatibility Code -*- lexical-binding: t; -*-
;; Copyright (C) 2020-2021 Leon Rische
;; Author: Leon Rische <[email protected]>
;; Url: https://www.leonrische.me/pages/org_flashcards.html
;; Package-requires: ((emacs "26.3") (org "9.3"))
;; Version: 0.1.0
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Code needed for backward compatibility with previous versions of org-fc.
;;
;;; Code:
;;;; Obsolete Aliases
(define-obsolete-function-alias
'org-fc-review-rate-card
'org-fc-review-rate "0.0.1")
(define-obsolete-function-alias
'org-fc-show-all
'org-fc-remove-overlays "0.0.1")
(define-obsolete-function-alias
'org-fc-stats
'org-fc-dashboard-stats "0.0.1")
(define-obsolete-function-alias
'org-fc--hashtable-to-alist
'org-fc-dashboard--hashtable-to-alist "0.0.1")
(define-obsolete-function-alias
'org-fc-sm2-fuzz
'org-fc-algo-sm2-fuzz "0.0.1")
(define-obsolete-function-alias
'org-fc-sm2-next-parameters
'org-fc-algo-sm2-next-parameters "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-changes
'org-fc-algo-sm2-changes "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-fixed-intervals
'org-fc-algo-sm2-intervals "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-ease-min
'org-fc-algo-sm2-ease-min "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-ease-max
'org-fc-algo-sm2-ease-max "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-ease-initial
'org-fc-algo-sm2-ease-initial "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-fuzz-min
'org-fc-algo-sm2-fuzz-min "0.0.1")
(define-obsolete-variable-alias
'org-fc-sm2-fuzz-max
'org-fc-algo-sm2-fuzz-max "0.0.1")
(define-obsolete-variable-alias
'org-fc-audio-property-after
'org-fc-audio-after-setup-property "0.1.0")
(define-obsolete-variable-alias
'org-fc-audio-property-before
'org-fc-audio-before-setup-property "0.1.0")
(define-obsolete-function-alias
'org-fc-audio-set-before
'org-fc-audio-set-before-setup "0.1.0")
(define-obsolete-function-alias
'org-fc-audio-set-after
'org-fc-audio-set-after-setup "0.1.0")
(unless (file-exists-p (concat org-fc-review-history-file ".bak"))
(let ((backup-file-name (concat org-fc-review-history-file ".bak")))
(when (y-or-n-p "Org-fc requires a new format for review history file. Want to update with backup? ")
(copy-file org-fc-review-history-file (concat org-fc-review-history-file ".bak") nil nil nil t)
(with-temp-buffer
(let ((code (call-process-shell-command (concat "gawk 'BEGIN {OFS=\"\t\"}{print $1, $2, $3, $10, $9, $8, $4, $5, $6, $7}'"
(format " %s > %s" (concat org-fc-review-history-file ".bak") org-fc-review-history-file)) nil `(,(current-buffer) t))))
(unless (zerop code)
(error (buffer-string))))))))
;;; Footer
(provide 'org-fc-compat)
;;; org-fc-compat.el ends here