hardcode league and urls since automatic fetching not working

soccer-leagues.el

@@ -79,8 +79,24 @@
  :group 'soccer
  :link '(url-link :tag "Homepage" "https://github.com/md-arif-shaikh/soccer"))
 
-(defvar soccer-leagues--leagues-alist)
-(setq soccer-leagues--leagues-alist (soccer-leagues--get-competition-names-and-urls))
+;;; The functions to fetch league and urls is not working anymore. Hardcoding some of these.
+;;;(setq soccer-leagues--leagues-alist (soccer-leagues--get-competition-names-and-urls))
+(defcustom soccer-leagues-leagues-alist '(("Premier League" . "https://www.theguardian.com/football/premierleague")
+ ("La Liga" . "https://www.theguardian.com/football/laligafootball")
+ ("Serie A" . "https://www.theguardian.com/football/serieafootball")
+ ("Bundeshliga" . "https://www.theguardian.com/football/bundesligafootball")
+ ("Ligue 1" . "https://www.theguardian.com/football/ligue1football")
+ ("Champions League" . "https://www.theguardian.com/football/championsleague")
+ ("FA Cup" . "https://www.theguardian.com/football/fa-cup")
+ ("Carabao Cup" . "https://www.theguardian.com/football/carabao-cup")
+ ("Championship" . "https://www.theguardian.com/football/championship")
+ ("Europa League" . "https://www.theguardian.com/football/uefa-europa-league")
+ ("Conference League" . "https://www.theguardian.com/football/europa-conference-league")
+ ("MLS" . "https://www.theguardian.com/football/mls")
+ ("Women's Super League" . "https://www.theguardian.com/football/womens-super-league"))
+ "Alist of league and urls."
+ :type '(alist :value-type (group integer))
+ :group 'soccer)
 
 (provide 'soccer-leagues)
 

soccer.el

@@ -136,8 +136,8 @@
  :group 'soccer-face)
 
 (defun soccer--get-league-names ()
- "Extract league names from `soccer-leagues--leagues-alist'."
- (mapcar 'car soccer-leagues--leagues-alist))
+ "Extract league names from `soccer-leagues-leagues-alist'."
+ (mapcar 'car soccer-leagues-leagues-alist))
 
 (defun soccer--get-league-url (league)
  "Get url of a LEAGUE."
@@ -513,7 +513,7 @@
 (defun soccer--all-clubs ()
  "Get all club names."
  (delete-dups (-flatten (cl-loop for leagues in (soccer--league-names)
- collect (mapcar 'car (cdr (assoc leagues soccer-leagues--leagues-alist)))))))
+ collect (mapcar 'car (cdr (assoc leagues soccer-leagues-leagues-alist)))))))
 
 (defun soccer-scorecard (date home away)
  "Get the socrecard for a match between HOME and AWAY on a DATE. Enter DATE in YYYY-MM-DD format if entering it manually. If the input is from `org-read-date' calendar popup then it is in YYYY-MM-DD format by default."